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PCW: 
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interface joystick + musique 
PC: 
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256 K silicon disc pour 6128 
256 KRAM pour 6128 


256 KRAM pour 464-664 
crayon optique 6128 
crayon optique 464 


joystick compétition 
PRO5000 .... 170F 
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cobol (not. angl.) 
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fairlight 


256 Ksilicone disc pour 464-664 


POUR AMSTRAD CPC 
[] interface TV (avec câble)... 
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canadair .............. 110F 160F 
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LOGICIELS PCW 


force 4 + miss. detector. 190F 
frank bruno's boxing 


GPII+ mailings 
graphologie + biorythmes 199 F 
heathrow air control 
histoire d'or 
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langage “C” (not. angl.) 
multiplan … 
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PCW paint 
polymail + poly 
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D CPC 6128 coul + impr. 
DMP 2000 


digitaliseur ARA 


2ème lecteur de disquettes 
mangétophone (avec câble) 
câble magnéto 


“ne lui manque que la parole”, synthé. VOC1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
campagne ! 

synthétiseur vocal 

7 logiciels vocaux sur disquette .......... 


549 F 
.…..195F 


Cpolyprint + polyword …. 490F 
polyprogram 
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Rallonge alimentation + vidéo 


À housse pour moniteur + clavier 
À ruban imprimante DMPI (par 2) 
ruban imprimante DMP 2000 
adaptateur peritel tous CPC 


Câble imprimante AMSTRAD 
Vous permet de connecter votre AMSTRAD à n'im- 
porte quelle imprimante au standard “centronic”. 

© câble imprimante 
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clefs pour amstrad t1 
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350F top secret 
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DIGITALISEUR ARA 
Ce digitaliseur vous permettra non seulement de 
digitaliser des images vidéo provenant d'une ca- 
méra mais aussi des images provenant direc- 
tement de votre T.V. Un logiciel très complet 
vous permettra d'embellir, retoucher, stocker. 
les images digitalisées. Entièrement français. 
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LOGICIELS PC 


D Karma ss 

les passagers du vent... 325 F 
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marche à l'ombre 
meurtres en série 


LIVRES 
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liv. lect. disq. cpc. . . . 

cp/m + sur cpc et pcw 100 F 
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basic "+" 80 rout. .... 100 F 
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imprimante SEIKOSHA SP 180 


joystick switch-joy 


produits DART 


STYLO OPTIQUE : De loin le meilleur de tous, 
e stylo optique DART à fibre optique vous 
permettra de réaliser de véritables chef d'œu- 
vres. Fourni avec logiciel d'exploitation très 
complet. 

stylo optique (disquette) 


stylo optique (cassette) ï 
SCANNER GRAPHIQUE : Ce scanner, tri 
ple d'utilisation, vous permettra de digitaliser 
toute image sur support papier, à partir de la 
DMP 2000. Fourni avec un logiciel d'exploita- 
tion très puissant. 

scanner graphique “DART" 
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ACTUALITÉS 


BIENTÔT L'HIVER, 
HABILLEZ VOTRE SOURIS ! 


Lors d’un défilé de mode dans 
es locaux d'INNELEC, nous 
avons pu découvrir cet élégant 
manteau de fourrure qui recouvrira 
votre souris, ne laissant dépasser 
que sa longue queue. 
Et, pour qu'elle puisse s’agiter effi- 
cacement, offrez-lui la piste 


MOUSE-MAT, élégant petit tapis 
couleur bleu outremer. 

Le manteau : 60 F 

Le tapis : 120 F. 


MIGENT - INNELEC : 
ACCORD PARFAIT 


Cette entente concerne la dis- 

tribution par INNELEC de 

l’intégré ABILITY +. Ce logi- 
ciel, destiné aux ‘’compatibles’’ de 
tous poils, se voit entièrement fran- 
cisé pour la circonstance. Proposé 
au prix de 1495 F HT, il devrait con- 
naître un beau succès | 


PANNE DE SECTEUR ? 
PENSEZ PRO-TECH ! 


Basée autour d’un concept 
D lui permettant d'être 

moins chère que ses concur- 
rentes, l'alimentation de sécurité 
PRO-TECH, pour PCW 8256 et 
8512, isole l'ordinateur du réseau 
EDF. Les micro-coupures n'auront 
pas plus d'incidence sur votre travail 
que les grèves EDF ou autres inter- 
ruptions moins volontaires. La bat- 
terie n’est pas fournie avec PRO- 
TECH et l’utilisateur devra l’acqué- 
rir séparément. 
Pour connecter PRO-TECH au PCW, 
il suffira d'ouvrir le boîtier de ce der- 
Lo et de brancher correctement 3 
ils… 
PRO-TECH est un produit HITECH. 
Tél. 85.93.20.01 


MICRO-APPLICATION 
TRAVAILLE POUR LE PC 


D> 


Pas moins de 3 nouveaux ou- 
vrages viennent d’être pré- 
sentés par MICRO-APPLICA- 
TION, dédiés aux compatibles PC. 
Après les avoir lus, vous deviendrez, 
sans nul doute, savant en la matière. 
Les titres choisis sont : 

+ Bien débuter sur PC 

+ Programmation avancée en GW 

et PC BASIC 
+ Le grand livre du MS-DOS. 


WINGS A DÉMÉNAGÉ 


La société WINGS Micro Dis- 
D": importateur-distribu- 

teur de logiciels et de périphé- 
riques, transfère ses locaux adminis- 
tratifs et annonce l'ouverture d’un 
nouveau magasin spécialisé dans la 
micro personnelle au 57 rue de Cha- 
ronne, 75011 Paris. 


LES LOGICIELS DE L'ÉTÉ 


MICROIDS sort la ver- 
sion PC du fameux Grand 
Prix 500. Douze circuits 
sont représentés pour cette simula- 


Ne manquez pas le 
numéro.d'Août de 
là revue 
AMSTAR 


Pour fêter son premier 

anniversaire-elle vous 

présente 120 logiciels 
illustrés par plus 
de 300 photos. 


Le tout pour 12 F | 


ACTUALITÉS 


tion de course de moto où vous 
devrez lutter contre l'ordinateur. 


LORICIELS propose Karma, 
D graphique d'aventures et 
de rôles où les 512K de 
mémoire du PC sont bien utilisés. Il 
fera appel à toutes les qualités du 


joueur : adresse, stratégie, diploma- 
tie et même gestion | 


e PC, vient d'adapter le célèbre 

“Prohibition’’. Flic, vous devez 
éliminer tous les tueurs de la pègre 
new-yorkaise. 


> NFOGRAMES, toujours pour 


URGENT !!! 


Occasion à saisir sur Bor- 
deaux, livré clés en mains, 
point de vente micro agréé 
COM- 


AMSTRAD, ATARI, 
MODORE. | 
C.A. actuel minimum : 
300000 F/mois. 

Pour tout renseignement 
Tél. 56.91.15.81 


PROHIBITION 


UBI-SOFT et DURELL nous 
offrent Saboteur Il, la suite 


| du grand succès ‘’Sabo- 


teur’”’. Toujours pour PC... 


PC & COMPATIBLES DISQUETTE 
COKTEL VISION annonce 
‘’Blueberry et le spectre aux 


ù balles d'or’, logiciel d’aven- 


ture et d'action aux graphismes 
exceptionnels. Sortie prévue en 
novembre. Pour PC (cartes EGA ou 
CGA) mais aussi pour CPC... 


D: INFORMATIQUE crée 


une nouvelle gamme : METAL 
HURLANT, grâce à un accord 
lui permettant d’avoir l'exclusivité du 
nom et du logo de la célèbre revue. 
La collection proposera des logiciels 


dans le domaine du fantastique 
(Blood), de l'aventure (Crash 
Garett) et de l'humour (Bubble 
Ghost). 
Pour septembre, les nouveautés pré- 
vues sont : 
Oxphar (gamme PC), jeu d’aven- 
ture, à la toi spectacle et logiciel. 
Kompilateur (gamme CPC), compi- 
lateur inté “ où le code généré 
prend, au At et à mesure de la com- 
piapen la place du programme 
ASIC. 
Clash (gamme CPC), jeu d'aventure 
dans la collection ‘’Métal Hurlant’’. 
Pour octobre, on nous promet à la 
fois sur CPC et sur PC, Crafton et 
Xunk 2. Est-il encore nécessaire de 
présenter la suite de ce célèbre jeu 
d'arcade-aventure ? 


ESAT SOFTWARE annonce 
D: 2000, pour les bour- 


sicoteurs de tous poils. 


>> 


DEIA nous propose Turbo 
CAD 3D, un logiciel de CAO 
pour PC, qui semble très pro- 
metteur. Bientôt un banc d'essai 
dans CPC. 


A NOTER 
SUR VOTRE AGENDA 


Le Forum FBI se tiendra à Dijon 

es 14, 15 et 16 octobre. Il trai- 

tera de bureautique, informa- 
tique et robotique. 
Renseignements au 80.30.51.17 
— Le Forum Informatique organisé 
par la Jeune Chambre Economique 
et l'Association Multi-Informatique 
Amateurs (AMIA) de Chatillon-sur- 
Thouet. (Deux Sèvres) se tiendra les 
21 et 22 novembre. || proposera 
trois structures d'animation . 
+ Exposition permanente 
+ Tables rondes 
+ Conférences et projections 
Renseignements au 49.95.07 .43 
— Le Centre de Ressources des Tech- 
nologies Nouvelles de l’Académie 
d'Aix organise au LEP de Cavaillon, 
les 25 et 26 septembre, deux jour- 
nées de démonstrations destinées à 
la promotion des logiciels pédago- 
es 

enseignements au 90.71.08.52 ou 

sur la messagerie télématique : 


90.78.02.00. 


ENGENDREMENT 
D'OBJETS DE 


REVOLUTION 


AVEC SAISIE 
MERIDIENNE 


SUR ECRAN 


+ REMARQUE 

Certains lecteurs semblent avoir eu 
des difficultés à se procurer la dis- 
quette AMSTRAD-3D. En plein ac- 
cord avec l'éditeur, vous pouvez, le 
cas échéant, adresser une disquet- 
te AMSTRAD vierge à l'auteur, à 
l'adresse suivante : 

Jean-Pierre PETIT, Chemin de la 
Montagnère, 84 Pertuis, Vaucluse, 
dans un emballage ad hoc, avec vo- 
tre adresse et un mandat de 50 F 
pour le port. 


| 


6ème PARTIE 


Jean-Pierre PETIT est directeur de recherche au CNRS. Il est 
l'auteur d'un logiciel de CAO de 120 Ko intitulé AMSTRAD 3D, 
assorti d'un livre du même nom, édité par PSI. Le logiciel a été 
délibérément mis dans le domaine public, c'est-à-dire que vous 
pouvez le copier sur une disquette AMSTRAD-CPC en toute 
tranquillité chez un revendeur ou un ami. Le livre est un gros mode 
d'emploi du logiciel, pour non-programmeur. 

Mais ce programme est riche de ficelles de programmation, liées à 
l'imagerie 3D. Dans cette suite d'articles, Jean-Pierre PETIT 
explique au lecteur toutes ses astuces, ce qui lui permettra peut- 
être de construire lul-même son propre programme de CAO. 


HR eur 


Jean-Pierre PETIT 


INTRODUCTION 


Dans les articles précédents, nous 
avons fabriqué deux programmes 
MOD1 et DES qui sont en fait le spli- 
ting d'une chaîne de traitement inti- 
tulée AMSTRAD-3D. Nous allons 
maintenant enrichir cette chaîne en 
donnant des outils supplémentai- 
res. 

Vous avez deux solutions. Soit par- 
tir d'une copie de MOD1 tel qu'il 
était à la fin de la leçon 5, soit entrer 
au clavier les instructions du pro- 


gramme ci-joint. Par principe, on 
s'arrange pour que le programme 
donné à chaque leçon soit autono- 
me, c'est-à-dire qu'il puisse fonc- 
tionner tel quel. Mais, pour ne pas 
réécrire à l'infini les mêmes sous- 
programmes, nous n'aurons gardé 
de MOD1 que le "squelette", c'est- 
à-dire : 

- le début (dimensionnement de fi- 
chiers, flags, MENU, ligne de dispat- 
ching) ; 

- la séquence de stockage d'objet 
(8000-8999) ; 


- le sous-MENU CREER UN OBJET 
(9000-9999) ; 

-la séquence d'incorporation de 
chaîne saisie à l'écran (14000- 
14999), voir leçon 5 ; 

- la séquence (25000-25999) de tra- 
cé de l'objet déja existant (pour 
compléter avec saisie écran) ; 

-la séquence (61000-61999), de 
saisie à l'écran ; 

-la séquence (65000-65535) de 
saisie de caractères. 


CREATION D'OBJETS 
DE REVOLUTION 


Un objet de révolution est obtenu 
en faisant tourner une courbe au- 
tour d'un axe. Lorsque cette cour- 
be est située dans un plan passant Figure 1 : Objets de révolution avec leur méridienne 
par l'axe, on l'appelle MERIDIENNE. 


Un cylindre est obtenu en faisant 
tourner autour de l'axe un segment 
de droite parallèle à celui-ci. Sur la fi- 
gure 1, on voit comment se ferait 
l'engendrement de différents ob- 
jets : cône, sphère, pot, tronc de cô- 
ne, verre. 


On pourait représenter un objet de 
révolution par un ensemble de li- 
gnes méridiennes et de parallèles 
(voir figure 2). 


Nous manipulons ici des structures 
fil de fer . Un objet de révolution 
sera alors assimilé à des méridien- 
nes-lignes brisées ( chaînes ) et à 
des parallèles-polygones. 

Combien de côtés pour ces polygô- 
nes ? C'est une question à la fois 
de lisibilité et d'encombrement mé- 
moire. Nous avons trouvé optimal 
de limiter ces contours à douze seg- 
ments et c'est précisément ce qui 
nous a amené à des ordres de di- 
mensionnement comme : 


4 DIM XT(49,12),YT(49,12),ZT 
(49,12),N(49) : REM etc... 


On voit qu'on a précisément des 
chaînes de douze segments (treize 
points), (figure 3). 

: se Nous allons envisager trois types 
Figure 2 : Ensembles méridiens parallèles d'objets de révolution autour des 


trois axes principaux OX, OY, OZ. Si 


Figure 3 : Représentation fil de fer des objets de révolution 


vous désirez créer des objets de ré- 
volution autour d'axes quelcon- 
ques, il vous suffira, lorsque nous 
aurons défini ces sous-program- 
mes, de combiner une translation 
et une rotation dans l'espace pour 
passer d'un de ces axes à un axe 
quelconque. 

Nous trouverons donc un menu qui 
demande de définir l'axe choisi, qui 
réalise la saisie de la méridienne à 
l'écran sous forme d'un contour 
polygonal, à travers la routine 
(61000-61999), puis  dispatche 
vers l'un des sous-programmes 
35000, 36000, 37000, selon le 
choix d'axe. 

On trouvera ces éléments dans le 
listing ci-après. Les sous-program- 
mes qui ne sont pas nécéssaires au 
fonctionnement correspondant à 
cette leçon sont réduits à leur plus 
simple expression. 


8916 INPUT'Non de l'objet ";ELS$ LS 


1 REM MODI 21 Mars 87 + objets de revolution (Frogramme : 


F7) 
2 IF FD=i THEN 236 


3 FD=i: L' = - 1:REM Initialiser L (L+i chaines dans ob} : 


et } 


4 DIM KT(49,12),YT(49,12),2T(49,12),N(49): REM etc... è 


7 GOSUB 24909:REM Choix des couleurs 
18 CLS 

15 FRINT'MENU FRINCIFAL":PRINT 

26 PRINT'a-Creer un objet" 

38 PRINT"b-Compieter un objet" 

46 PRINT'c-Stocker un objet" 

00 PRINT"d-Charger un objet" 


64 PRINT'e-":PRINTUE- "PRINT "qe PRINT" PRINT UFR à 


INT" j- "2 PRINT'E-" 
74 PRINT “]-Creer une image" 


89 PRINT"m-": PRINT n- "PRINT o-": PRINT" p-" 


189 PRINT'q-Quitter" 


195 IF EL$ <> “" THEN LOCATE 22,21:PRINT" Objet resident 


“sLOCATE 22,23: FRINT EL$ 


197 IF L£i-1 THEN LOCATE 31,23:PRINT L+is" ch." 


290 GOSUE 65096: REM Saisie caractere 
214 IF C=17 THEN END 
224 IF C = 12 THEN CHAIN'FB 


239 ON C GOSUB 9696,9019,8600,5000: REM etc... 
999 ERA, "+. bak":G0TD 19:REM Boucle MENU 


8990 REM STOCKAGE OBJET 


8926 OFENOUT EL$ 


8625 PRINT #9,L:REM L'OBJET À (L+1} CHAINES 
6636 FOR I=6 T0 L: REM Four toutes les chaines aiiant d ? 


efal 


8649 PRINT #9,N(I}): 


REM Nombre de segments sur chaine #DNE 


8650 FOR J=6 TO N(I): REM Pour tous les points de La ch : TP“ 


aine d'indice I 


86ëé PRINT #9,XTCI,J),YT(I, Ji,2ZT(I,J) 
8974 NEXT J:NEXT I 

8986 CLOSEOUT 

8999 RETURN 

9009 REM CREER UN OBJET 

9605 L=-1:É=K+1:ELS$ (K)="":ELS="" 

9619 CLS:PRINT'CREER UN OBJET":PRINT 
9626 PRINT'a-Creer chaine par chaine" 
9436 FRINT'"'b-Objet de revolution" 


9649 PRINT'c-Travailler sur un objet standard" 


9059 PRINT"d-Creer un prisme" 

9668 PRINT'e-Creer un cercle" 

9674 PRINT'"'{+-Creer un arc de cercle" 
9699 GOSUB 65900: REM Saisie caractere 


9190 IF C>7 OR C =-51 THEN 9999:REM SORTIE DE SOU-PROGR 


AMME POSSIBLE PAR £RETURN? 
9192 IF C€0 THEN 9664 


9116 ON C GOSUB 26900,34690:REM, etc... 


9999 RETURN 


14996 REM INCORPORER LA CHAINE À L'OBJET 


14914 L=L+1 : N(LI=IT 


14626 FOR J = à TO N{L}:REM TOUS LES POINTS NH 
14839 IF CP=1 THEN XTIL,JI=XE (Ji YT(L,JI=YE(Ji: TL, J}= oAJE 
11 

14646 IF CP=2 THEN XTIL,Ji=XE (Ji IT, Jh=VE Ge TL, J)z 3BE: 
Yi 

14454 IF CF=3 THEN KT(L,Ji=Xi es YTIL,Ji=KE (Ji: 2T(L,JI=YE CLS 
(J} 

14966 NEXT J AM: 
14999 RETURN ëTE“ 
24669 REM CHOIX DES COULEURS 2XG€ 
24999 RETURN #UL< 
25944 REM TRACE EN FLAN DE L'OBJET EXISTANT 26H< 
25616 FOR 1=6 TO L : FOR J=4 TO NI! AURES 
25029 KX=XT(I,J)#100:REM INTERMEDIAIRES DE CALCUL iJES 
29024 YY=YT(I,J)#164 AULE 
25044 11=1T(1,J:#106 2YM< 
290986 IF C=1 THEN KE=X +300: YE=YY+300 #LNE 
25069 IF C=2 THEN XE=XX+300: YE=11+506 FQF< 
25070 IF C=3 THEN XE=YY+306: YE=22+290 AE 
25080 IF J=6 THEN FLOT XE,YE ELSE DRAN XE,YE,2 BRRE 
25494 NEXT J : NEÏT I ALES 
25999 RETURN EVE 
26606 REM CREER DES CHAINES : JT 
28999 RETURN SUN 
34004 REM CREATION OBJET DE REVOLUTION #DH° 
34614 CLS : FRINT'OBJET DE REVOLUTION" :FRINT #RJE 
34926 PRINT'Saisie ecran seulement ":FRINT AVE 
34934 PRINT'Axe : "2: PRINT "'a-0X":PRINT"D-0Y": PRINT" c-07": GEL 
GOSUB 65406: CA=C:REM CHOIX AXE 

34046 IF C=-51 THEN 14999 2EM: 
34045 IF CA=1 THEN A$="K":08="Y" FXTE 
34046 IF CA=Z THEN A$="Y":0$="7" #EU< 
34447 IF CA=Z THEN A$="Y":08="7" FDV< 
34954 GOSUB 61460 : CF = CA 2 TNE 
34668 ON CA GOSUE 35406, 38006, 37000 FPP< 
34999 RETURN 2VME 
35606 REM OBJET D'AXE OK ARE 
35916 L=L+#i : LL : N)ZII RUE 
35620 FOR J = 4 TO N(L) #EL< 
35036 XT(L,J)=XE(J) 2PME 
353448 VT(L,Ji=YE(J} FTNE 
35456 IT(L,J)=8 2GP< 
35064 NEXT J :DQ 
35074 FOR Q = à TO N(LI):REM ENGENDREMENT FARALLELES 2GR£ 
25689 L=L+i:N(L)=12 FCT< 
15496 XC=XT(L1,0) LUE 
35115 R = YTiLi, 0) FALE 
35126 FOR J = 9 TO 12 2H: 
35130 XT(L,J}=XC FYN< 
35140 YT(L,J)=R # COS (J#FI/6) ÿCP< 
35159 2T(L,J}=R * SIN (J#FI/6) 2KQ< 
35164 NEXT J 3ER< 
23174 NEXT Q ENTÉ 
33189 REM ENGENDREMENT MERIDIENS 3CU< 
35183 DA=FI/4 2VT£ 
35198 FOR Q = 1 TO 7 >BVE 
39296 L=L+1 : N(L)=N(LI) #AL< 
35218 FOR J = 9 TO N(LH) FJME 
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39226 YTIL,J)=YT (LI, Ji#C05 (Q#DA)-2T (LA, J)*SIN(Q#DA) 
35236 IT(L,J)=YT IL, J)#SIN(Q#DA) +2T (LA, J) #C0S (Q#DA) 
35235 TL, J)=XT(L1,J) 

35240 NEXT J 

35250 NEXT 

15999 RETURN 

360% REM OBJET D'AXE OV 

36010 L=L+1 : Lis : N(L)=II 

36026 FOR J = à TD NIL) 

36b7ÿ YTIL, JI=XE(J) 

36b4ÿ ZTIL,J)=VE(J) 

36054 TL, J1=0 

Zéûbf NEXT J 

36070 FOR Q = à TO NIL1I:REM ENGENDREMENT PARALLELES 
36086 L=L+1:N(L) 212 

36098 YC=YT(L1,0) 

36118 R = ZT{LI,0) 

36124 FOR J = à TO 12 

36130 YTIL,Ji=YC 

36149 IT(L,JI=R # COS (J#P1/6) 

36150 AT(L,JI=R # SIN (J4FI/6) 

36188 NEXT J 

36174 NEXT Q 

36180 REM ENGENDREMENT MERIDIENS 

36190 DA=P1/4 

36264 FOR Q = 1 T0 7 

36219 LeL+1 : NiL)=NIL1) 

36226 FOR J = à TO N(LH) 

36234 2T(L,J)=2T(L1,Ji#C0S (QkDAi-KT (LA, J'ASIN(Q#DA) 
36249 XT(L,J)=2T (LI, JI#SIN(Q#DA) #XT (L{, J)#C0S (Q#DA) 
36256 YT(L,J)=YT(L1,J) 

36264 NEXT J 

36270 NEXT Q 

36280 RETURN 

36999 RETURN 

37060 REM OBJET D'AKE 07 

37019 LeL+1 : List : Nil)=Il 

37020 FOR J = à TO N(L) 

37030 YT(L,J)=XE(J) 

37649 IT(L,J)=VE (Ji 

37050 XT(L, J)=0 

37060 NEXT J 

37076 FOR Q = à TO N(L1): REM ENGENDREMENT PARALLELES 
37080 L=L+1:N(L)=12 

37096 2C=IT(LI,0) 

37118 R = YTIL1,0) 

37126 FOR J = 0 TD 12 

37130 ZT(L,J)=2C 

37144 XTIL,JI=R + COS (J#P1/6) 

37154 YT(L,J)=R # SIN (J#F1/6) 

3716 NEXT J 

37170 NEXT Q 

37184 REM ENGENDREMENT  MERIDIENS 

37190 DA-F1/4 

37209 FOR Q = 1 T0 7 

37218 LeL#1 : N(LI=N(LI) 

37226 FOR J = 4 TO NLI) 

37230 XT(L,J)=XT (LA, J)#C06 (Q#DA)-VT (L1, J)#SIN(Q#DA) 


37244 VTIL,JE=XT (LI, J'4SIN(Q#DA)+VT (Li, J)#C06 (Q+D4} #ÉT£ 


37250 2T(L,J)=2T(L1,J) FAUE 
37266 NEXT J #HVE 
37270 NEXT Q RW: 
37999 RETURN sV< 


66064 REM DEFINITION DU TYFE DE SAISIE DE CHAINE FLANE EG: 


89999 RETURN FUL< 
61000 REM SAISIE ECRAN sUHE 
61085 CLS :VN: 


b1W16 II = -1 : KE = 790: VE =244 : KE(MI=XE:VE(GI=YE: 307: 


REM INITIALISATIONS 


61915 GOSUB 61840:REM TRACE QUADRILLAGE #LP< 
bi617 IF L£s -1 THEN GOSUE 25666: REM TRACER L'OBJET EX :XR< 
ISTANT 

61926 GOSUB 61706: REM TRACE CROIX LS 
610236 CH=INÉEYS : IF C$="" THEN 61976 #DL< 
61935 © = ASC (C$) 3AR< 
61956 EOSUB 61796 : REM EFFACAGE CROIX #VNE 


61960 IF C = 243 THEN XE = XE + S:REM INCREMENTATION  :LP4 
61965 IF C = 247 THEN KE = XE + Sü:REM CODRDONNEES ECRA WE 


N 

61976 IF © = 242 THEN XE = XE - S:REM XE,YE DE LA CROI :F& 
X DE SAISIE 

61675 IF C = £46 THEN XE = XE - 5û EUR 
&iô86 IF C = 244 THEN YE = YE + 5 DR 
b1905 IF C = 244 THEN ŸE = ŸYE + 5à sQX< 
61996 IF C = 241 THEN ŸYE = ŸE - 5 #HTE 
61695 IF C = 245 THEN ŸE = ŸE - 56 AE 


61199 IF € 
our limite a 12 segments !":GOSUB 65426 :60T0 61666 
&1162 IF C = 

OT XECII),YEUIE) 1 


61193 IF 1159 THEN PLOT XECII-1),VE(II-1):DRAN XECII) ,Ÿ :XM< 


EXII),1,6 

61145 IF C=<13 THEN 61606:REM FIN DE SAISIE 
61114 GOTO 61629 : REM BOUCLE DE SAISIE 
61649 REM FIN DE SAISIE 3 
61616 CLS:LOCATE 1,1 : PRINT"'Fin de saisie":G60SUE 61849 : 
:REM TRACE QUADRILLAGE 


b1b39 MOVE XE (9) ,VE(G),1 NT£ 
btb4 FOR JJ = à TO II #HU< 
61654 DRAW KE(JJi,YE(JI),1 YU 
&i6éà NEXT JJ +PWÉ 
61674 LOCATE 1,2 : FRINT'Ca vous va ?":GOSUB 63026 #DX< 
81699 IF C <+ 15 THEN 61009:REM REBELOTE #LT< 


61691 LOCATE 1,2:FRINT'Fatience, je cree l'objet..." UA< 


32 AND II = 12 THEN LOCATE i,i :PRINT'Cont UT“ 


32 THEN II=11+1 : KEC(IT)=XE: VE(II)=YE : FL 34Le 


61692 FOR JJ=6 TO IT : KE(JJ)=(XE(IJI-306;/100: VECJJi=C RE 
YE(JJ)-266)/166:NEXT JJ: REM CONVERSION DES COORDONNES 
ECRAN EN VERITABLES COORDONNEES 


b1699 RETURN SRJE 
bi70û REM TRACE CROIX DE SAISIE CENTREE EN (XE, YE) >FX 
61716 MOVE XE-10, YE-16 FFRE 
&i720 DRAN KE+iÿ,YE+10,1,1 >DT 
6730 MOVE XE-10, VE+16 PU 
bi74ù DRAW KE+10,VE-10, 1,1 FHV< 
61799 RETURN STK< 
6800 REM TRACE QUADRILLAGE :FR< 
bi8iô FOR 11 = à TO 250 STEP 56 >AT4 
&1820 MOVE 11,0 : DRAM 11,500,3 MU: 


biB34 NEXT Ii 

61844 MOVE 264,6 : DRAM 300,560,2 
61854 FOR 11 = 356 TO 839 STEF 56 
61864 MOVE 11,9 : DRAW 11,504,3 
61879 NEXT Ii 

61898 FOR 11 = 9 TO 156 STEF 54 
b1966 MOVE G,11 : DRAW 746,11,3 
&19ië NEXT Ii 

61924 MOVE 6,294 : DRAW 746,200,2 
61936 FOR I1 = 254 TO 566 STEF 54 
61944 MOVE 6,11 : DRAW 746, [1,3 
61958 NEÂT [1 EN 
61969 LOCATE 29,1 : PRINT O$:REM indiquer ce qui est e :Jit 
n ordonne ecran D$ 

61965 LOCATE 24,7 : FRINT"i" *EE* 
61974 LOCATE 46,12 : PRINT A$:REM Indiquer ce qui est e :GÂ“ 
n abcisse ecran A$ 

61972 REM Graduer l'ecran 

61975 LOCATE 24,25 : FRINT"-2" 
&1984 LOCATE 24,13 : PRINT"O" 

61996 LOCATE 26,12 : FRINT"{" 

61993 LOCATE 32,12 : PRINT"2" 

61994 LOCATE 12,12 : PRINT"-1" 
L1998 LOCATE 6,12 : FRINT-2" 

61997 LOCATE 26,19 : FRINT"-1" 
61998 REM 

bi999 RETURN 

65600 REM Saisie caractere 

65818 PRINT:PRINT"Votre choix :" 
65024 C$=INEEYS: IF C$="" THEN 65626 
65910 C=ASC (CS) 

85644 IF C:98 THEN C=C-96:G0T0 6553 
b5958 IF Ci96 THEN C=C-6à 

65935 RETURN 


On remarquera au passage la ligne laisse dans le registre C le chiffre 


vous soyez embarqué dans une 0p- 


34040. -51. Ceci laisse une possibilité, tion et une sous-option quelcon- 
Lorsqu'on réalise la saisie d'un ca- que l'on peut rendre systématique, que. Tout d'un coup, vous chan- 
ractère clavier et qu'on presse surla de sortir de toute option avec un gez d'avis. Vous ne voulez plus 
touche <Return>, l'opération effec-  <Return>, cette sortie pouvant être faire cela. En pressant systémati- 
tuée au sous-programme 65000  transitive. Supposons que vous  quement sur la touche <Return>, 


LL 


après avoir mis à toutes les saisies 
de touches une ligne semblable à 
la ligne 34040 vous quitterez les 
uns après les autres les sous-pro- 
grammes, pour retourner au MENU 
général. C'est une procédure classi- 
que, très commode. | 


La ligne 34050 envoie à la saisie de 
contour polygonal plan. Sur l'écran, 
apparaît automatiquement, comme 
nous l'avons déja vu dans la leçon 
précédente, un quadrillage avec 
les axes. On déplace la croix de sai- 
sie exactement comme pour une 
saisie de chaînes. Mais il s'agit cette 
fois du contour méridien, limité com- 
me toujours à douze segments (il 
s'agit d'une chaîne unique). 


Puis, nous avons la ligne de dispat- 
ching 34060 qui envoie à trois sous- 
programmes selon l'axe choisi. 
Nous n'en commenterons qu'un à 
titre d'exemple, le (37000-37999) 
qui correspond aux objets d'axe 
OZ. 


Commentaire 
du sous-programme 
(37000-37999) : 


Nous venons de saisir un contour 
polygonal XE{(J), YE(J) de Il seg- 
ments. 

On crée une chaîne (incrémenta- 
tion de L). On précise que le nom- 
bre de segments est Il. Puis, on 
convertit ce fichier XE(J), YE(J) en 
YT(L,J), ZT(L,J). I! s'agit d'une chaï- 
ne plane qui se trouve dans le plan 
X = O (plan YOZ). Donc, on écrit 
dans la boucle que XT(L,J) = 0 


On a donc créé une première chaï- 
ne qui est la méridienne et qui, 
dans cet objet, mobilise Li seg- 
ments. On engendre ensuite les pa- 
rallèles. Il s'agira de dodécagones 
(12 segments) situés dans des 
plans Z = Cte. Il s'en crée un pour 
chaque point de la chaîne méridien- 
ne (indique Q). En 37110, on défi- 
nit le rayon du cercle circonscrit au 
polygône. For, on trouve une bou- 
cle qui crée les points du polygône 
à partir des points de la méridienne 
par rotation d'un angle J * PI/6, c'est- 
à-dire de J fois 30°. Quand J vaut 
12, on retombe sur les 360° de la cir- 
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conférence totale. 

Reste alors à engendrer les autres 
méridiens. Pour éviter un boucha- 
ge de l'image, on a décidé d'en met- 
tre moins. Ils seront dans des plans 
espacés angulairement de PI/4. La 
séquence suivante crée ces méri- 
diens. 


INTEGRATION DANS LA 
CHAINE DE TRAIÎTEMENT 


Nous l'avons dit, nous avions deux 
façons de procéder. Soit taper ces 
instructions de bout en bout, soit 
modifier le dernier programme 
MOD1 figurant dans la leçon 5. Si 
nous avons procédé selon le se- 
cond choix, notre travail est termi- 
né. |! nous suffit de mettre ce pro- 
gramme MOD1 modifié sur une dis- 
quette portant le programme DES 
(voir leçon 3) pour fonctionner en 
chaïînage avec celui-ci. 


Supposons que nous ayons tapé 
ces instructions. Nous  vérifions 
que ce programme fonctionne, au 
niveau de la création et du stocka- 
ge d'objets et au niveau d'un chaï- 
nage avec DES. Comment adjoin- 
dre les sous-programmes "réduits" 
à l'état de squelette, présents sur 
l'ancienne version de MOD1. C'est 
simple. Supposons que vous ayez 
stocké le programme d'aujourd'hui 
sous le nom "P". Vous chargez l'an- 
cien MOD1 et vous faites MER- 
GE"P (et non l'inverse !). 


L'OPTION COMPLETER 
ET LES OBJETS 
DE REVOLUTION 


Aucun problème. Supposons que 
vous ayez réalisé cette intégration. 
Votre nouveau programme MOD1 
contient tout ce qui a été fait depuis 
le début. Il permet de faire des chaï- 
nes à l'écran et des objets de révo- 
lution. Alors vous êtes très capable 
de créer un vase et d'adjoindre ses 
anses. Voici comment il vous faudra 
procéder. 

Vous allez démarrer par la séquen- 
ce suivante : 


RUN"MOD1 

Vous choisissez vos couleurs (si 
vous pressez quatre fois sur la tou- 
che <Return>, vous aurez une cou- 
leur de fond bleu nuit, un tracé 
jaune, des axes rouges et des. ob- 
jets d'arrière plan bleus. 


a-Créer un objet 
b-Objet de révolution 
c-OZ 


Vous créez alors la forme de votre 
amphore à l'écran en déplaçant la 
croix de saisie à l'aide des touches 
flèches ou de <Shift> flèche. Vous 
validez les points avec la barre et 
vous signalez la fin de saisie avec 
un <Return>. Vous savez que vous 
obtenez alors une demande de 
confirmation de contour avec un : 
Ca vous va ? (Figure 4) 


Figure 4 : Fin de saisie de la 


méridienne de l'amphore 


AMSTRAD crée alors l'objet. Vous 
attaquez alors : 


b-Compléter un objet 
a-Créer chaîne par chaîne 
b-Saisie écran 
c-YOZ 
Abcisse plan ? O 


Il faut créer votre anse dans le plan 
X= 0, pour qu'elle tienne à l'ampho- 
re. En effet, celle-ci est située se- 
lon la figure 5. 
Sur l'écran, vous allez voir se dessi- 
ner l'amphore en bleu (ou en "cou- 
leur 2"). Vous êtes alors libre de 
créer, à l'aide de la croix de saisie, la 
première anse. Vous validez (figu- 
re 6). 
Vous revenez dans la projection 
YOZ avec la même séquence et 
vous créez la seconde anse. Vous 
pourrez stocker cet objet en l'appe- 
lant AMPHORE. C'est faisable puis- 
que cette chaîne ne fait que 7 carac- 
tères. Ceci fait, vous pourrez activer 
l'option 

l-Créer une image 
et passer automatiquement sur 
DES. Choisissez, par exemple, une 
position (5,4,3) pour l'observateur 
et (0,0,0) pour le point visé, avec 
une ouverture angulaire de 20°. 
Vous obtiendrez l'image ci-après (fi- 
gure 7). 


Figure 5 : 
L'amphore 
et ses anses 


Figure 7 : 
Dessin 
en perspective 
de l'amphore 


ENCHAINEMENT 
D'OPERATIONS DE SAISIE 


Notre chaîne de traitement est ainsi 
faite qu'elle permet un enchaîne- 
ment infini d'opérations. .Nous 
avons enchaîné une saisie de méri- 
dienne pour un objet d'axe OZ, 
puis une saisie de chaînes planes. 
Nous pouvons continuer de travail- 
ler sur cet objet en le complétant et 
en passant sur la création d'un nou- 
vel objet de révolution, d'axe quel- 
conque, ou d'autres chaïnes pla- 
nes. La seule chose sur laquelle 
vous devrez conserver un œil, c'est 
le nombre de chaînes de votre ob- 
jet qui apparaît sur l'écran du menu 
principal. Vous savez que vous n'a- 
vez droit qu'à 50 chaînes. Mais 
vous pouvez, à l'aide de cette mé- 
thode, créer par exemple une sorte 


Figure 6 : 
Après saisie 
de la forme de l'anse 


Le RS Se 


TX 12 


Buse: 


Figure 8 : Objet composite 


de poinçon à manche en "T" (fi- 
gure 8). 


CONCLUSION 


Ce sixième article est un exemple 
de la manière dont nous allons 
continuer à travailler. En conservant 
le "squelette" du programme et les 
sous-programmes de routine princi- 
paux, nous créerons de nouveaux 
sous-programmes, correspondant 
à de nouvelles tâches : créer un 
prisme, un cercle, un arc de cercle. 
Ultérieurement, nous apprendrons 
à manipuler ces objets de mille ma- 
nières. Au passage, nous appren- 
drons à manipuler non plus des ob- 
jets, mais ces ensembles d'objets 
appelés blocs. À chaque étape, ce 
matériel s'intégrera automatique- 
ment dans la chaîne de traitement. 


BR RE 


Nos confrères anglais font 
bien les choses et le 


dynamique Derek Meakin, 
patron de Database, n’a 
pas failli à sa réputation de 


brillant organisateur des 
AMSTRAD COMPUTER 
SHOW... 


Pour la première fois, l'expo se 
tenait à quelques dizaines de minu- 
tes du cœur de Londres, à l’Alexan- 
dra Palace. Situé sur une hauteur 
dominant la capitale, ce monument 
en cours de restauration a été com- 
pe d'un pavillon accueil- 


ant les expositions. 


Denis Bonomo 


L'organisation est remarquable, un 
service de cars gratuits eh oui...) 
assurant la navette, tous les quarts 
d'heure avec la gare la plus proche. 
Quand on se souvient du Sicob à Vil- 
lepinte. Messieurs les organisa- 
teurs, prenez-en de la graine! 


Couronnant (normal chez nos voisins 
d'Outre-Manchel) le succès des 
produits dédiés aux ordinateurs 
AMSTRAD, cette manifestation était 
encore plus importante que les 
précédentes et, malgré une surface 
offerte accrue de 50%, bon nombre 
de postulants exposants n'ont pu 
obtenir de stand. 

L'atmosphère était chaude : chauffé 
par le soleil de juillet, le hall 
d'exposition s'est rapidement 
transformé en sauna, à la plus 
grande joie des vendeurs de bières 
ou autres shandies. 


La foule 

du vendredi. 
Devinez 

ce qu'il en 
a été 
samedi et 
dimanche ! 


Que pouvait-on y voir? Beaucoup de 
choses certes, mais somme toute 
assez réservées aux PCW et PC. Il 
devient difficile d'innover au niveau 
de la gamme CPC... 

La grande vedette des lieux était, 
sans conteste, le grand frère du PC 
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Présenté sur le stand AMSTRAD, le 
PC 1640 ECD attirait bien des 
curieux. Un petit dernier n’arrivant 
jamais tout seul chez AMSTRAD, 
une nouvelle imprimante, la DMP 
3160 lui tenait compagnie. 

Cette extension, vers le haut, de la 
gamme PC témoigne du succès ren- 
contré par ces matériels. Nul ne peut 
désormais en douter. 

Côté logiciels, des jeux d'arcades 
aux produits professionnels, toute la 
gamme était représentée, que ce soit 
pour CPC, PCW ou PC. La place 
nous manque pour présenter ces 
différents produits, beaucoup 
d'entre eux étant d'ailleurs peu 
adaptés au marché français. On 
attendra avec impatience l’arrivée 
sur le marché français du GEM 
Desktop Publisher de Digital 
Research. La Publication Assistée 
par Ordinateur rencontre, actuelle- 
ment, un réel engouement! 

Autre logiciel digne d'intérêt, 
AutoSketch, proposant un nouveau 
concept dans la création graphique 
dédiée aux PC. Le logicié n'es plus 
orienté vers le traitement du pixel, 
mais vers celui de l’objet tout entier. 
Un cercle reste un cercle, même en 
‘!zoomant’’ plusieurs fois dessus et, 
si un cercle et un rectangle interfè- 
rent, il est possible d'effacer l'un 


sans détériorer le tracé de l’autre. 
ARNOR proposait Maxam Il et Ar- 
nor C, Maxam Il ayant déjà été dé- 
crit dans CPC, nos Éceur se repor- 
teront au banc d'essai d’Arnor C 
présenté dans ce même numéro. 
Les produits français ont aussi leur 
succès en Angleterre. Sans parler 
des jeux qui avaient déjà traversé la 
Manche à contresens, on pouvait 
voir chez SIREN SOFTWARE Cher- 
ry Paint (pour CPC) et un certain 
‘’Discology’’(vous connaissez?) 
Pour le AAA nous avons retenu 
l'annonce de la disponibilité 
prochaine chez INNELEC des ver- 
sions françaises du digitaliseur vidéo 
et du crayon optique, pour PC, de 
THE ELECTRIC STUDIO. Démons- 
tration convaincante pour le digita- 
liseur, complété d’un logiciel assu- 
rant la recopie des images sur im- 
primante. Son concurrent direct se- 
ra le digitaliseur ROMBO Vidi-PC 
qui devrait également être disponi- 
ble en France prochainement. 

A côté de tout cela, on trouvait bon 
nombre d'accessoires : mobilier op- 
timisé, coffres et capots anti-bruit 
pour imprimante, cache-claviers 
(pour les distraits qui versent thé ou 
café sur leur ordinateur), pistes de 


danse et petits manteaux de fourrure 
pour souris (on ne se refuse rien!) 
écrans anti-reflets et, bien entendu, 
tout le ‘’consommable’’ (papier lis- 


La digitalisation  ;;59, disquettes etc.) 


d'images Un dernier mot avant de conclure : 
vue par contrairement à ce qui se passe lors 
The Electric des expos en France, la présentation 
Studio d'ordinateurs ‘’non-AMSTRAD"’’ ne 


semblait pas interdite. Nous avons 
pu voir un compatible concurrent du 
PC 1512 et. des disques durs moins 
gourmands en sort que ceux 
montés d’origine sur le PC d’'AMS- 
TRAD. Le démonstrateur nous a mê- 
me affirmé que disque dur et carte 
d'extension mémoire pouvaient, 
sans problème, être alimentés par le 
PC1512. Les Anglais seraient-ils plus 
tolérants que les Français? Anyway, 
it was a really good exhibition! 


La vedette 
de l'expo : 
le PC 1640 

ECD ; 
quelle 
qualité 
graphique ! 
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Surprise, ce n'est pas “à Li 
un AMSTRAD ! THE LOWEST PRICE 
HARD DISK 
ON PLUG-IN CARD UPGRADES 
FOR YOUR 


Les spécialistes 
du couplage 
entre 
ordinateurs 

et instruments 
de musique. 


nel Chez 
Rombo, 
le Vidi 


professi? 


Le co digitalise aussi ! 


PROTÉGER VOTRE AMSTRAD 


TOUS LES SACS ET HOUSSES SONT ADAPTÉS A CHAQUE TYPE DE MATÉRIEL ET LES PASSAGES DE CABLES SONT PRÉVUS. 


Sac pour Amstrad (clavier) 
PC 46471664061280PCW 8256.ç3 
oloris : bleu, gris ou sable. 

rix: 


Sac pour moniteur Amstrad mono- 
chrome [1 couleur. [1 
Coloris: bleu, gris ou sable. 


Housse pour Amstrad (claier) 
CPC 46406640 61 280 PCW 8256€] 
Coloris: beige, blanc, bordeaux, noir, 


130 F TTC 


monc :} 


Coloris: beige, blanc, bordeaux, noir, 


130 F TIC 


Ü Housse pour moniteur Amstrad. KT: 


Pochettes disquettes 3” ou 3,5” 
pour 1 disquette 29 FTTC 
pour 6 disquettes .... 116 F TTC 
pour 10 disquettes 150 FTTC 
pour 32 disquettes .. 200 F TTC 
Coloris: gris, bleu ou sable. 


Les sacs pour claviers AMSTRAD 464 - 664 - 6128 comprennent 1 poche pour le clavier plus 1 autre du même volume pour y ranger les accessoires. 


ZARD Creations - 99 31 64 73 


ANTI-E 


Grégory NOE 


Il est difficile de taper un programme 
d'une revue sans commettre d'erreurs ! 
Quand les erreurs sont signalées (Syntax 
error in., Line does not exist in...) la cor- 
rection est facile puisque la ligne est indi- 
quée, mais lorsqu'au ‘‘point de vue’’ du 
CPC le programme est correct, il peut en 
être tout autrement pour le lecteur : 

Si le fonctionnement du programme ne 
correspond pas vraiment au programme 
original, alors il est impossible de retrou- 
ver l'erreur commise, à moins de com- 
parer les lignes de votre programme avec 


rayez les mentions inutiles. 


celles du journal mais c'est très long et 
on risque de passer sur une erreur sans 
la voir. 

C'est pourquoi ce programme a été 
créé ; il est à utiliser si vous ne retrou- 
vez pas Vos erreurs. 

La frappe d’un programme de votre jour- 
nal favori (CPC) terminée, vous faites 
“RUN”, et là vous corrigez toutes les 
erreurs signalées par le CPC en vous 
référant au journal pour comparer. Si 
malgré cela, il ne tourne toujours pas sui- 
vez cette procédure : 


POUR COMMANDER: Retournez-nous cette publicité en cochant le ou les pro- 
duits que vous désirez recevoir et en remplissant le bon ci-dessous. Pour les coloris, 


© Port PTT à ajouter au montant de votre commande: 25F 
@ Joindre votre règlement par chèque ou mandat à votre commande. 


— sauvez votre programme en ASCII 
grâce à l'instruction : Save‘’nom. 
prog'’,A 

Puis, si vous êtes sur K7 rebobinez la 
bande jusqu’au début du fichier ; 

— chargez Anti-Erreurs ; 

— entrez le nom de votre programme et 
insérez le support où il se trouve (K7 ou 
disquette). 

Après quelques secondes les numéros de 
lignes vont défiler. Vous remarquerez 
qu'à chaque ligne correspond un.code de 
2 lettres sous cette forme : >XX<, 
c'est ce code qui va vous permettre de 
savoir d'où proviennent les erreurs. Pour 
cela il faut que vous compariez les codes 
du journal à ceux de l'écran. Si un code 
diffère, notez sur papier le numéro de 
ligne qui correspond à ce code. Conti- 
nuez ainsi jusqu’à la fin du listage. 

Le défilement terminé, rechargez votre 
programme et corrigez les lignes que 
vous avez notées en comparant avec le 
journal. Faites ‘"RUN”” et, oh !, miracle !, 
ça marche. 

Attention : lors de la frappe du pro- 
gramme à traiter, n'omettez aucun 
caractère (sauf les espaces) car Anti- 
Erreurs les prend en compte, et bien sûr 
ne tapez pas les codes de contrôle. A 
partir du mois prochain, tous les listings 
de CPC comporteront ces codes, ce qui 
devrait remédier une fois pour toutes aux 
problèmes de saisie. 

NB. la ligne 480 contient le numéro de 
canal O pour l'écran ou 8 pour l’impri- 
mante. 


LE HER HE ARDECHE HE HN | 
oi # | 
E@ ‘x ANTI — ERREURS x | 
4 ‘# # 

SO ANA MAR DHEA HE DEA DE HE HE HE HE HE HE 
STE 

7% ‘(C)CPC #& GREGORY NOE 1987 

89 : 

9% ON ERROR GOTO 966 | 


188 MODE ? 
119 DIM g$(2%) 
126 FOR Ie TO 22: READ g$:g$(l)=a#: 
NEXT 
136 ‘ ATTENTION LA LIGNE DE DATA CI 
=DESSOUS NE CONTIENT FAS TOUTES LES 
LETTRES DE L'ALFHA-BET !!! 
148 DATA A,B,C,D,E,F,6G,HJ,F,L,MN, 
F0 Re TE Vs KV, 2 
56 ‘  ANTI-EUG FICHIER 
169 IF FEEK(HIMEM+1) 2255 
17% OFENOUT “cpce" 
186 MEMORY HIMEM-E 
199 CLOSEOUT 


THEN 


316 


206 FOFE HIMEH+1,255 


314 DEFINT 
Dabe * 

236 BORDER 6:1INE 6,1:1INE 
: FAFER 6 

248 MOVE 6,16: DRAW 656, 16 
254 PRINT TAB(E7) C'ANT 
EUR : 
6% MOVE 6,385:DRAN 656,385 

276 LOCATE 18,25:PRINT'CFC REVUE DU 


f Es Z 


1,16:FPEN 1 


I-EREA 


LE 
Le] 


STANDARD AMSTRAD ET SCHNEIDER" 
2984 WINDOW 1,84,27, 27 
294 ms'"'Kealise par Gregory NOE" 


LE ES 

FOR ii TO LEN(m#) 
Ft #H+MIDSE (mé, i, 1) 
LOCATE 74-1,S5:FRINT $f$ 
FOR tel TO 166 

HS6 NEXT €, i 


CNT CEN UM DEEE DE DE DEN DE DE DE DE DE DE DEEE DEEE 


299 LOCATE ?,1:FPRINT'ENTREZ LE NOM 
DU FICHIER : “: 
498 INEUT MUSNFS 

419 LOCATE 2,%:PRINT'TANT QUE LE LI 
STAGE N'EST FAS TERMINE" 
4%@ LOCATE ?,5:FRINT'NE FAS 
FR LE MAGNETOFHONE OÙ NE“ 
4% LOCATE %,7:PRINT'FAS SORTIR LA 
DISQUETTE" 
44% LOCATE 
OUCHE FOUR 
45% CALL SBRGS 

46% OFENIN “'"+4nfs 


Un 
4 


ARRETE ! 


24 16: FRINT'PRESSEZ UNE T| 
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PARTS) 


474 CLS: FRINT'TRAITEMENT EN COURS... 


cart CANAL DE SORTIE 
LINE INFUT#K#O,b$:a#$=UFFERS (b#) 


260 IF care THEN GOSUR 916 
| 519 IF INÉEY(66)=@ THEN STOF 
| 520 

SIRTE CALCUL DE LA CLE DE CONTROLE 

546 
| JS arf 
| 56% FOR iri TO LEN(a#) 

J74 18=MID#(ag, i,1) 

396 IF 1E=CHRSE CES) THEN 660 

J99 arat+ASC(1#) 

66% NEXT 1 

&l® ceINT (a 2%) 


&E6 pra (cas) 


BE Cé=GE (F) 

648 a=@ 

65% FOR i=i TO 6 
66 1#=MIDE(at,i,1) 


676 
686 
76 
7464 


IF 1#<"G" OR 1&r"9U THEN 7640 
li1$=11$+1$:asa+VAL C1) 

NEXT 

CÆINT(a/25) 


719 pra-(cxz5) 

FPE CHECS+GS (F) 

75 

746 IF car THEN 756 ELSE 774 

756 FRINT 11$:TAB(1@) USING MANN 
cé 

F8 li$g=e"":GOTO 846 

774 Lie" PRINTHCA, LEFTS(b#,5633T 
ABCEE) USING MEANEScE 

786 IF LENCDb#)256 THEN 846 

796 faq 

666 Dé=MIDS (bBS,21,LEN (b#)) 

819 FRINTHCA, LEFTS(b$,:6@) 

826 IF fg=1i AND cai:8 THEN fg=@: 608 


UE 916:G0T0 85:64 

826 GOTO 786 

84% IF EQOF=-1 THEN CLOSEIN ELSE GOT 
0 466 

334 CALL SEBBOTZ: FRINT 
OUCHE, .. Mi CALL &BEOS 
864 CLS: FRINT'MAINTENANT RECHARGEZ 
MiNF&S" ET CORRIGEZ LES LIGNES QUE 
VOUS AVEZ NÜTEES.." 

874 END 

884 ‘TRAITEMENTS DES ERREURS 

696 


TAB(S6) "UNE T 


IF ERR=2S THEN CLS: FRINT CHR# (7 
J3CHRS (24): "FICHIER NON ASCII": CHRE 
(24) : END ELSE CONT 

916 com=com+i:IF com:19 THEN CALL À 
EBOZS:FRINT TAR(5) "UNE TOUCHE..." 
CALL &BB65: COMz=1 

929 RKETURKN@ 


LA TECHNIQUE 
DES MASQUES 


Dans le numéro de mai de 


CPC, je vous avais déjà 


entretenu de la technique 


des masques. Technique qui 


permet de déplacer un 
sprite à l’écran sans en 


modifier les décors. Si, dans 
mon premier article, le 


phénomène était 
relativement bien expliqué, 
en revanche les routines 
utilisées étaient quelque 
peu archaïques. Un des 
défauts les plus évidents 


étant le crantage du 


déplacement. 


Claude LE MOULLEC 


Aujourd'hui, nous allons étudier le même 
effet, mais avec un déplacement plus 
couplé, un déplacement au pixel près. Si 
le résultat est de meilleure qualité, la 
technique à mettre en œuvre est plus 
complexe. Néanmoins, les opérations de 
base restent les mêmes : 


e INITIALISATION 

— Sauvegarde de la partie écran sous le 
sprite 

— Affichage du sprite 

e DEPLACEMENT 

— Test de déplacement 

— Remise à l'écran de 
sauvegardée 

— Sauvegarde de la partie écran à la 
nouvelle position 

— Affichage du sprite 


la partie 


Ilexiste deux façons d'effectuer ces opé- 
rations et notre choix devra se faire en 
fonction de la taille du sprite. 

Pour que le mouvement ne subisse pas 
d'à-coups, il faut que toutes les opéra- 
tions décrites plus haut aient lieu entre 
deux balayages vidéo. Si notre routine 
est trop lente, notre sprite ne sera pas 
entièrement affiché lorsque le spot vidéo 
sera de retour. C'est à ce moment là que 
nous risquons d'observer ce que j'appelle 
l'effet de TRICOT. Lorsque le sprite se 
déplace vers le haut de l'écran, il perd un 
pixel à chaque ligne tout comme un tri- 
cot perd ses mailles lorsque l'on tire sur 
le fil. 

Suivant le mode avec lequel nous travail- 
lons, nous aurons 8, 4 ou 2 représenta- 
tions différentes pour un sprite. J'ai écrit 
mes deux routines pour le mode 1,ilme 
faut donc quatre formes différentes pour 
mes sprites. 


PREMIERE ROUTINE 


L'avantage du premier programme est de 
calculer lui-même les quatre formes du 
sprite. Tous ces calculs demandent du 
temps et comme nous sommes limités 
par le retour du balayage vidéo, une telle 
routine ne pourra être employée que 
dans le cas d’un petit sprite. 


Les différents essais que j'ai effectués 
m'ont prouvé qu'un sprite de 16 octets 
était la limite à ne pas dépasser. En mode 
1, si nous avons 16 octets, cela repré- 
sente exactement la taille d’un caractère 
ASCII (2 octets sur 8 lignes de pixels). 
Vous me direz qu'avec un si petit sprite, 
on ne peut pas faire grand-chose. Pour- 
tant, c'est avec une telle routine que j'ai 
écrit 3D SNAKE (CPC n° 23). La boule 
qui se déplace à l'écran ne fait que 
14 octets. Je vous laisse juge du 
résultat. 


Les programmes 1 et 2 vous permettront 
de vous familiariser avec cette première 
technique. 

L'initialisation se fait par 
&A000,X,Y,Z. 

X et Ÿ étant les coordonnées et Z la cou- 
leur, les déplacements se font par CALL 
&A003,X,Y et les changements de taille 
du sprite par CALL &A135,NB (NB étant 
le nombre de lignes de pixels). 

Les 16 octets qui composent le sprite se 
trouvent à partir de l'adresse &AOOS. 

Il'est aussi possible d'effacer le sprite par 
CALL &A0O06. 

Dans cette routine, la partie la plus com- 
plexe est constituée par le sous- 
programme effectuant la rotation des 
octets. C'est ce sous-programme qui 
prend le plus de temps car il est lu pour 
chacun des octets et par la-même en 
limite le nombre. 


CALL 


DEUXIEME ROUTINE 


Ici, le sous-programme décrit précédem- 
ment a disparu. La rotation des octets ne 
s'effectue plus. Le programme affiche le 
sprite tel qu'il se trouve en mémoire. 
Puisque nous travaillons en mode 1, 
nous avons 4 pixels par octet, il faudra 
donc avoir en mémoire les 4 formes dif- 
férentes du sprite. C'est le plus gros 
défaut de cette routine. 

Dans le programme de démonstration 
que j'ai décrit, les quatre formes du sprite 
se trouvent sous forme de datas. Imagi- 
nez le problème si nous devions gérer 
plusieurs sprites. Nous serions vite noyés 
sous le nombre des datas. Dans ce cas 
de figure, je vous conseille de vous ins- 
pirer du programme écrit pour CHERRY 
PAINT dans le CPC n° 6, page 13. L'au- 
teur, Pascal Higelin, a conçu un petit pro- 
gramme BASIC qui, à partir d’un seul 
sprite, calcule les autres formes. 
CHERRY PAINT étant écrit en mode 2, 
le programme calcule pour chaque sprite 
huit formes différentes. Il ne vous sera 
pas très difficile de le modifier pour obte- 
nir le nombre de formes nécessaires au 
mode dans lequel vous travaillez. 
Cette fois-ci, je pense que nous avons 
fait le tour de la question. Ces deux der- 
nières routines ainsi que celles de mon 
premier article doivent vous permettre de 
répondre à tous les cas de figure. À vous 
d'en faire le meilleur usage. 

Bon courage et à vos claviers, 
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À 


NU 


“a 
LIDII 


fo REM ennemies sentent :6B€ 
24 REM : : © FC 
36 REM : gestion du sprite : A \ >UD< 
49 REM : : FHE< 
DO REM stresse nee er ent t ess ss FLF< 
6 MEMORY SE8FFF F6: 
79 LOAD "codei" EH 


89 FOR h=4A009 TO 2A009+16:POKE h,253:NEXT AE 


90 CALL 4A000, 108, 100, 2: x=100: y=100 WE 
109 IF JOY(G)=1 THEN y=y#1:6070 150 >RB< 
119 IF JOV(G)=2 THEN y=y-1:60T0 156 SNC£ 


126 IF JOY(@)=4 THEN x=x-1:G0T0 154 #XD< 


130 IF JOY()=8 THEN x=x#1:G0T0 150 
149 GOTO 100 KF< 
150 CALL 4AGOZ, x, y:BOTO 106 +TG< 


ID REM sessenessennssenennnnnsssese 
26 REM : : 
30 REM : implantation de la : 
49 REM : la routine : 
56 REM : ; 
60 REM sossesssenensssnnesseessttss 


76 MEMORY 49FFF 
86 FOR h=LA000 TO WA141:READ a$:FOKE h, VAL ("h'+a$) :NEXT 

96 SAVE "codel",b, kA00Ô, &200: END 

290 DATA C3,38,49,C3, 73,0, C3, A2, AD, 06, 00, 00, 0, 00, 09,00, 00, 
00,00, 00, 00, 09, 00, D, 09, 00, 00, 00, 09, D, 09, 00, 0ù, Gb, 06, 00, 00, 
00,00, 00, 00, 00, 09,00, 00, 00, DD, 09, 0, 06, 0, 00, D 

306 DATA 09,00, 00,06, 06, DD, 7E, 06,CB, 47, 28,02, 06,FÔ, CB, 4F,28, 
04,78, F6,0F,47,78,32, 37,0, DD, 6E, 92, DD, 66, 03, DD, 5E, 04, DD, 56, 
05,ED,53, 31,40, 22,33, A0, CD, 1D, BC,ES,C5,CD,FE, A6 

319 DATA C1,E1,CD,AB, AG, C9,00, 00,00, DD, GE, 26, DD, 66, 01, DD, SE, 
92, DD, 56,03, 22,33,A0,ED, 53,31, 49, CD, 1D,BC,C5,E5, 2A, 35, 6, CD, 
19, BD, CD, 1B, A1,E1,E5,CD,FE, A9,E1, Ci, CD, AB, A6, C9 

320 DATA 09,60, 06, 28,35, A, C3, 1B, 1,00, 00, 00, TA, 37, A6, A1,57, 
79,2F,5F, DD, 21,09, 40, 06,08, C5, D5,E5, 06,08, 3E,04, BB, 2,02, DD, 
23,7E,A3,4F, 74, DD, CE, 00, 0b, 30, 06, DD, CB, 00, 66, 18 

330 DATA 08, 3E,00, DD, CB, 06, 06, 30, 02, 81,77,CB, OA, CE, 0B, 38, 09, 
CE, OA, CB, GA, CE, OA, CB, CA, 23, 10, CE, DD, 23,E1,CD, 26, BC, D1,C1, 10, 
BF, C9, 09,00,00, 22,35, A0, ED, 58, 19, 0, 06, 08,E5,GE 

340 DATA 03,7E,12,23,13, 00, 20,F9,E1,CD, 26, BC, 10,F0,C9,00,00, 
00, ED, 5B, 19,0, 06,08,E5, 0€, 03, 14, 77,23, 13,0D,20,F9,E1,CD, 26, 


IDHREMéSÉsnnsPen ne  ennn Ten ss en :6B° 
26 REM : : :FC< 
34 REM : IMPLANTATION DES 4 FORMES : #UD< 
46 REM : DU SPRITE LE: 
99 REM : : Fi 
GO REM Son Rire rs ere nie >MG< 
70 MEMORY S8FFF:RESTORE 296 5JH£ 
86 FOR H=49006 TO S908F:READ A$:PDKE H, VAL ("S"+A$):NEXT DEJ< 
90 REM Sn oine tr esne ss eonss +QE< 
190 REM : : ?6B< 
119 REM : GESTION DU SFRITE : 3VC< 
120 REM : ! 3JDi 
LSO REM sssresnnssenenneit enr sece 2ME< 
149 RESTORE 349 2 LES 


150 FOR h=$A006 TO LAGAE:READ a$:POKE h,VAL("R"æ+a$iNEX 
T 

168 CALL &A60, 100, 196, 89000 

170 x=100: y=100: sp (1) =40006: sp (2) =89024: sp (3) =k904B: sp ( 
4)=8906C:s=1 


EH 
JAI 


189 IF JOY(6)=1 THEN y=y+1:60T0 236 ?1K£ 
190 IF JOY()=2 THEN y=y-1:60T0 239 DL< 
206 IF JOY(H)=4 THEN 5=5-1:G0T0 246 #KC< 
216 IF JOY()=8 THEN 5=5+1:G0T0 2ëÿ :QD< 
226 GOTO 186 TES 
236 CALL &AO00, x,y,sp(s):G0TD 184 >AF< 
246 IF s=0 THEN s=4:x=x-4 ELITE 
254 GOTO 236 RH 
266 IF s=5 THEN s5=1:x=x+4 ARE 
274 GOTO 23 >UK£ 
284 REM :::: DATA DU SPRITE 22: ?EL4 


290 DATA EE,06,00,88,00,00,88, 00, 09,EE,77,00,00,55,00,0 >CM< 
9,55,09,00,77,09,00,44,00,EE, 44,00,88, 00,00, 06,00, 0ù,EE 
29,09 

300 DATA 77,00,00,44,00,06,44,00,00,77,33,88,00,22,88,0 >TD< 
9,22,88,06,33,08,00, 22,00, 77,22,00,44, 64,00, 44,00, 00,77 
20,00 

316 DATA 33,88,06, 22,00, 00,22, 40, 00,33,99,CC,00,11,44,6 
9,11,44,00,11,CC,00,11,09,33,99,00,22,0, 00,22, 00, 00,33 
88,09 

326 DATA 11,CC,69,11,00,00,11,00,09,11,CC,EE, 69,00, AA, 0 
0,04, AA, 60,06,EE,00, 06,88, 11,CC,88,11,00,00,11,06,06,11 
CC, 90 

339 REM :::: DATA DE LA ROUTINE 321 

246 DATA C3,38,A0,C3,96,A0, 00,00, 00,00, 00,00, 06,00, 00,0 
0,00,00,00, 00,00, 00, 00,00, 00, 00,00, 00, 00, 00,00, 00, 00, 00 
, 29,90, 00,00, 00, 00, 06, 09,00, 00,00, 00,00, 00, 06, 00,00, 00 


31EX 


>GF< 


S 


>XG< 
>IH 


350 DATA 09,00, 06,00, DD, &E, 00, DD,66,01,E5, DD, 4E, 82, DD,4 >JJ< 
4,03,00,5E, 04, DD, 56,05, CD, 10, BC,E5, CD, 19, BD, CD, 96, A0, E1 


22,06, A6,E5, CD, 66, A0,E1, Di, CD, 7F, A0, C9, 00, 00, Où, 11,08 
360 DATA A0, 06, 0C,ES,0E,04,7E, 12,23, 13,00, 20,F9,E1,CD,2 DNK 
4, BC, 19, F0, C9, 00, 09, 00, dé, QC,ES, 0E,43, LA, Bb, 77,23, 13, 6D 
,20,F8,E1, CD, 26, BC, 10,EF,C9,00, 5, 06, 2A, dé, Ab, 11,08, AD 


370 DATA Ô6,0C,ES,0E,04, 1A,77,23, 13,00, 20,F9,E1,CD, 26,8 >YL< 


BC, 10, F0, C9, 00, 00, 00, DD, 7E, 00, 32, BE, A0, 32, 06, A1,32, 20,A1,C9@ €, 10, F0,c9@ 


AMSRYTHM va vous 
permettre de créer et de 


modifier à volonté 10 


rythmes le plus simplement 
du monde. Il s’agit, en fait, 


d’une boîte à rythmes 
perfectionnée. Les rythmes 


créés peuvent être 
sauvegardés sur disquette 
(ou sur cassette après 
adaptation). 

Les AMSTRAD vont battre le 
rythme... 


F. HARDY 


CREER ET MODIFIER 
UN RYTHME 


Pour créer un rythme, il suffit de taper 
<1> au menu. || apparaît alors 10 
chiffres de O à 9 qui indiquent les 
numéros des rythmes, chacun suivi du 
nom du rythme. Si aucun rythme n'a été 
créé, il sont chacun suivis de ‘’Sans 
Nom''. 


Pour revenir au menu, taper <ENTER >. 
Pour créér, par exemple, le rythme 
numéro O, taper O sur le clavier. Si le 
nom est ‘’Sans Nom'’, on vous demande 
le nom de votre rythme. Alors apparaît 
à l'écran un tableau. 

A gauche du tableau sont indiqués les 
noms des instruments et en haut du 
tableau, une flèche se déplace de gauche 
à droite. Le curseur en haut à gauche du 
tableau peut être déplacé grâce aux 
quatre flèches du clavier. 

Pour produire un son, il suffit d'appuyer 
sur la touche À, B ou C suivant le canal 
sonore que vous avez choisi. 


Il apparaît alors, dans la case du curseur, 
la lettre À, B ou C suivant votre choix et 
chaque fois que la flèche du haut du 
tableau passera sur la colonne où se 
trouve votre lettre, le son de l'instrument 
de la ligne se fera entendre. 

En combinant les sons, on peut ainsi 
créer un rythme. 


La vitesse de la flèche est réglée par le 
tempo, indiqué au-dessus du tableau, à 
côté du nom du rythme. On peut le faire 
varier de 5 à 99: pour l’augmenter, 
appuyer sur les touches <SHIFT> et 
<flèche haut>, pour le faire diminuer, 
appuyer sur les touches <SHIFT> et 
<flèche bas >. 


On peut remarquer que la flèche se 
promène sur toute la iongueur du 
tableau, mais on peut régler son point de 
retour avec les touches <SHIFT> et 
<flèche gauche> ou <SHIFT> et 


<flèche droite > pour ne pas être obligé 
de créer son rythme sur toute la longueur 
du tableau. 

Sur une même colonne, on ne peut 
mettre qu'une seule fois les 3 canaux A, 
B et C. Si vous essayez, par exemple, de 
mettre 2 fois la lettre À sur une même 
colonne, un bip sonore se fait entendre. 


Pour effacer une lettre, amener le 
curseur sur la case où elle se situe et 
appuyer sur la touche < COPY >. 
Pour revenir au menu, appuyer sur 
<ENTER>. 


JOUER 


Pour jouer le rythme que vous venez de 
créer, choisissez l'option 2 du menu. Les 
noms des rythmes apparaîssent sur 
l'écran avec leur numéro. Appuyer sur 
une touche de <0> à <9> et écoutez! 


Une flèche indique le rythme en train 
d'être joué. Pour écouter un autre 
rythme, appuyer sur une autre touche 
entre <0O> et <9>. Pour arrêter le 
rythme, appuyer sur <DEL>. 


EFFACER UN RYTHME 


Pour effacer un rythme, choisissez 
l'option 2 du menu. Une liste apparaît et 
il suffit de taper le numéro du rythme à 
effacer. Taper <O> pour confirmer 
votre demande. 


JOUER MANUELLEMENT 


L'option 3 du menu permet de jouer 
manuellement des instruments. 

La liste des instruments apparaît sur 
l'écran, chacun précédé d’une lettre de 
A àäR. < 

Pour jouer, il suffit de taper la lettre sur 
le clavier. 
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Pour changer de canal, tapez 1, 2 ou 3 
sur le clavier pour, respectivement, le 


canal À, Bou C. R$(9,62) 


TU 
SAUVEGARDE ET TP) 


CHARGEMENT DES RYTHMES 


Les fichiers sauvegardés et chargés sont 
to'is du type ‘’nom.RYT'", où ‘‘'nom'' est 
le nom de votre rythme sauvegardé. 
Pour sauvegarder un ou des rythmes, 
taper simplement le ou les numéros des 
rythmes. 

Pour charger un rythme, il suffit de taper 
son nom et un numéro lui est 
automatiquement attribué suivant la 
place disponible. 


LISTE DES VARIABLES 


Contient pour chaque colonne le numéro d'instrument 
à jouer pour les 3 canaux. 

Nom de chaque rythme 

Point de retour pour chaque rythme 

Tempo pour chaque rythme 


Numéro du rythme en cours 

Nom du rythme créé ou à charger 

Position de la flèche 

Contient l’ordonnée du curseur 

Contient la touche appuyée 

Contient le code de la touche appuyée 

= 1 si erreur dans l'entrée du nom du rythme 
Variables secondaires 


STRUCTURE DU PROGRAMME 


80 

90 à 200 
260 à 290 
340 à 430 


ADAPTATION 
DU PROGRAMME AU 464 


Ce programme est exclusivement 
réservé aux systèmes 664 et 6128. 
Pour l'adapter au 464, il faut changer 
tous les ‘’CURSOR 1'' et ‘’'CURSOR 0" 
par respectivement ‘’'CALL &BB8D'' et 
‘’CALL &BB8A"”, ainsi que ‘’'ON BREAK 
CONT"' par ‘'CALL &BB48"' et ‘’CLEAR 
IMPUT'' par ‘’'CALL &BB0O3''. 

Si, de plus, vous ne possédez pas de 
système à disquette, adaptez les lignes 
1590 à 1800 à votre système cassette. 


avec 


REMARQUE : branchez votre ordinateur 
sur votre chaîne Hi-Fi et vous obtiendrez 
des effets surprenants. 

Le canal À correspond alors au haut- 
parleur gauche, le C à celui de droite et 
le B aux deux. 


IRIS IST IS ESS SCTSOIS SES STE SSS ESS SES) 
20 tete AM SR TH Mt (Ci 1987 +444 
AU E TI SET SI CESSE SESSSCES ES ESS SES ESS ESS 


SO A A AA EEE OR 
SONDRES ##4 

TA AAA EEE EE EEE 
Bé SYMEUL AFTER 254: SYMEOL 
9ù ENT 1,1,8,1:ENV 1,1.15,1,14,-1,5 

198 ENT 2,1,5,1:ENV 2,41.15,1,1,6,1.1,-144i 

116 ENT 3,1,9,1,1,-S,12ENV 3,1,15,1,7,-2,1.5 
124 ENT 41, I:ENV 4,1,13,1,15,-1,4 

138 ENT 5,,10,1,1,-10,12ENV 5.1.19,2,7,-2,6,5 
144 ENT 6,1,19,1.1.-18,1:ENV 6,1.15,1.1,-14.1 
154 ENT 7,1.19,1,1,-19,12ENV 7,1,13,1,14,-1,2 
oi 
Î 
178 
igé 
159 


ENT 9,1,5,1,1,-S,12ENV 9,1,4,15,1,6,14 
ENV 14.19,1,5 
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255,293,128. 140,128. i28,128, :E 


ENT 8.5,.1,1,5,-1,1,5,1,1,9.-1,12ENV 6,15,1,1,1,-14, à 


ENV 11.15.1222 ENT 111.1, 1-16 1,51, à 


480 à 1090 


Définition des caractères et des couleurs 
Définition des enveloppes sonores pour les 
instruments 
Initialisation des tableaux et affichage d'un titre 
d'attente 
Menu 
Création et modification des rythmes 
480 à 540 : choix du rythme à créer ou modifier 
580 à 720 : affichage du tableau 
760 à 880 : attente et déplacement du curseur 
920 à 930 : affichage de À, B ou C dans la case 
du curseur 


970 à 1020: 
curseur 
1060 à 1090 : sous programme d'interruption : dépla- 
ce la flèche et joue les instruments de la colonne 
Sons des instruments 
Jouer rythmes 
Rythme manuel 
Effacer un ou plusieurs rythmes 
Sauvegarde d’un ou plusieurs rythmes 
Chargement d’un ou plusieurs rythmes 
Retour du basic 


efface le À, B ou C dans la case du 


= 


249 ENV 13,1,15,1,1,8,1,1,6,1,12,-1,8,2.-1,RM:ENT -12,i :C: 
20 PS CO a 
216 ON BREAr CONT #0L: 
à | #LE< 
LT EEE DENT 
244 ‘#*# INITIALISATION TABLEAUX ET AFFICHAGE TITRE #44 :XG: 
2 PO PE HE 
266 DIM r$19,62; ,nm$ (91 ,r%t9),TF4(9) RES 
276 MODE G:LOCATE 3, 1£:PRINT'A M 5 À Ÿ T H M'LOCATE 3, EE: 
29: PRINT CHR$iié4i+" 1986 FAR F.H." 
286 FOR 1=9 TO G:NM$ili="Sans Nom':R£(Ii=62:TPHili=i8 JL 
294 FOR J=6 TO &2:R$(I,Ji="  MeNEËT J,I 20M< 
368 #CD: 
TO CHAOS *BE< 
229 ‘#44 MENU *#4 2PF< 
RACE STE ESS ST S :D6< 
346 CLEAR INFUT:MODE 1:LOCATE 12,1:FRINT'A M S KR YŸ T H EH 
H" 
394 LOCATE 1,6:FRINT" [1] CREER / MODIFIER" ARE 


360 PRINT:PRINT" [21] JOUER" UK 
376 PRINT:PRINT" C3] EFFACER #HLE 
280 PRINT:PRINT" C4] JOUER MODE MANUEL" 2FM< 
390 PRINT:PRINT" [5] SAUVEGARDER 2MN< 
49% PRINT:PRINT" Lo] CHARGER ?KE< 
419 PRINT:PRINT" [7j RETOUR BASIC >TF< 
426 AS=INKEYS: IF A$<"1" OR 4$:"7" THEN 420 ELSE A=VAL(A >76< 
$) 

436 ON À GOTO 466,1370, 1620, 1500, 1796, 1850, 2010 2NH< 
449 >HJ< 
AD ARE 2NE£ 
460 ‘+44 CREER MODIFIER #44 #CL£ 
A7 ANNEE 50M< 
486 MODE 1:LOCATE 7,1:PRINT'CREER / MODIFIER / ECOUTER" >PN£ 
49 LOCATE 1,5:FO0R 1=0 TO SPRINT LiNMSCI):NEXT 3GP< 
960 FRINT:PRINT'MENU : CENTER] 2PF< 
919 FRINT:PRINT'TAFER LE NUMERO DU RYTHME CHOISI" LG 
J26 AS=INÉEYS: IF A=CHRS (13) THEN 349 ELSE IF A$£"9" OR :2H£ 
A$:"9" THEN 526 ELSE NM=VAL (A#) 

39 ER=0 ARE 
949 IF NM$(NM)="Sans Nom" OR ER=Î THEN LOCATE 1.21: INFU >DK< 


T'Nom du nouveau di. nm$=UPPERS (nm$) : IF LENinm 
$)28 OR INSTRinm$,"."j<:@ THEN ER=1:60T0 546 ELSE IF nm 
$="" THEN 469 ELSE PER EN 
SO AMEN 
269 ‘+ Affichage du tableau # 
70 AMEN 


589 MODE 2:FOR i=36 TO 318 STEP 16:PLOT 9,i:DRAW 632, it > 


NEXT 

900 FOR 1=128 TD 634 STEP B:PLOT 1,318: DRAN i,36:NEXT 

609 DATA caisse grave,caisse 1,caisse 2,caisse 
4,caisse aigue, charleston,cymbale Î,cymbale Z,cymbale 

3,cloche 1,cloche Z,ciaves.bidon,planche, glissement, cou 
ic,silence 


619 RESTORE 666: PEN 1,1:FÛ0R ii TO 18:READ a$:LOCATE 1, : 


J+is PRINT a$:NEXT:FEN 1.0 


62% LOCATE 36,1:PRINT'- - 4 MS R Y T H - -":LOCATE 1,3 } 


“stLOCATE 26,3: FRINT'ATITE 

NDEZ... 

630 FOR i=0 TO 62:1F r$(nm,ii="  " THEN 6éÿ 
648 FOR j=1 TO 3:k=ASC(MIDS (R$(nm,1),3.1)}-32 
EN 656 ELSE LOCATE 17+1,k+5:PRINT'X"+CHRS (64+j)+"X"; 
65ë NEXT J 

b6ÿ NEXT 1:LOCATE 28,3: PRINT" S 
b76 pt=6:HINDOW#E, 1,86, 1,25:FAPERK2, L:PEN#2,0 

bBè LOCATE 1,25:PRINT'XA:canal À B:canal B C:canal C 
CCOPYl:efface CSHI.+FLECHE]: tempo & pt de retour"; 
699 LOCATE 17,6 

766 x=POS (#6) : k=VPOS (#9) : LOCATE 
SING"HH#" e TPA NM) : : PRINT'X"; 

716 WINDOW#1,17,17+R%4 (NM), de 9: PEN#1,6:PAPER#1, 1: LOCATÉ 
17+R24 (NM) +1,95: PRINT" " 

29 EVERY TPA(NM),3 GOSUB 1966:LOCATE x,k:CURSOR 1 

720 AHEPENEPAOPENPNPHPHNPHHETE 

746 ‘* Boucle d'attente des commandes * 

POURETT TES SE IS SES SELLES LE LES SITES 

766 A$=INKEYS: AS=UPFERS (A$} 


2,3: PRINT'TEMPO : 


3.caisse : 


:IF k=0 TH > 


ZX": : 


770 IF A$=CHR$(242) AND POS(#6)>17 THEN FRINT'e": ELSE Fi 
IF A$=CHR$ (243) AND POS (#4)<79 THEN PRINT'"; 
780 IF A$=CHR$(241) AND VFOG(#4)€23 THEN PRINT": ELSE >VR£ 
IF A$=CHR$ (249) AND VPOS(#0)>6 THEN PRINT" +"; 
798 IF A$="A" THEN CL=i:GOSUE 92 DT 
809 IF A$="E" THEN CL=2:G60SUB 926 DE 
816 IF A$="C" THEN CL=3:60SUB 926 AE 
826 IF A$=CHR$(224) THEN GOSUB 970 ?CL< 
830 IF a$=CHR$(13) THEN Z=REMAIN(3):60T0 340 NME 
844 IF A$=CHR$(&F4) AND TFA(NM)<99 THEN CURSOR 6:Z=REMA MN 
INC) : TPA (NM) =TP% (NM) +1: G0TO 766 
856 IF A$=CHR$(SFS) AND TPANMI:5 THEN CURSOR 6:2=REMAI :CP< 
NS) : TP (NM) =TPA (NM) -1:G0T0 756 
86 IF A$=CHR$(%F6) AND r'étnmi:é THEN réinmi=réinmi-1:6 004 
OTO iv 
676 IF A$=CHR$(&F7) AND réinmi 62 THEN rétnmi=ré(nm)+is 2R< 
GOTO 1416 
88% GOTO 765 STE 
890 AIN EEE EUX 
969 ‘+ Affichage de À,B ou C dans la case du curseur # :0K4 
QUO AMENER ILE 
920 IF MIDS(RS(NM,POS(#4)-173.CL,13€3" “ THEN SOUND 129 EM 
4196: RETURN 
936 MIDS (RS (NM, POS (#4)-171,CL, 11 =CHR& (VPOS (#6) +27) : PRIN FN 
T'L'4CHRS (b4+CL)+"X “5: RETURN 
CUURPT TETE ET LICE LESI SIC LES CS CEC SC LCL LCL LCL NP£ 
950 ‘+ Efface le À,E ou C dans la case du curseur + Ed 
DO À HIER *OR< 
970 DI:FOR I=3 TO 1 STEP -1:1F MIDS (RS (NM, POS (#4)-17), I UT< 
,1)=CHRS$ (VPOS (#9}+27) THEN 966 ELGE NEXT:EI:RETURN 
986 CURSOR 6: 4=FOS(40)-17:MID# (RS NM, x),1,1)=" "PRINT QU< 
CHRS (295) +"e" 
906 FOR j=1 TO 3:k=ASC(MIDS (R$ (nm, x), j,1))-Z3: IF k= TH We 
EN 166 ELSE LOCATE#2, x+17,k+5:PRINT#2, CHR$ (64+ jj ; 
1696 NEXT j:EI:CURSOR 1:RETURN ABS 
1919 CURSOR 8: 2=REMAIN (3) : x=POS (#0) : k=VPOS (#0) YC< 
1929 LOCATE 17,5:PRINT'@"::G0TO 718 #KD< 
1020 ANA HOEHEBPOPOPEBEPEPEPBPENEHPE BE 
1644 ‘+ Deplace fleche et joue rythme de la colonne # HF“ 
1050 AAA DGÉ 
1069 CLS#1:LOCATE#I,pt+1,1:PRINTH#I,CHR$ (245): 2 XH€ 
1976 FOR I=1 T0 3:0N ASC(MIDS (RS (NM,FT),1,1i}-31 GOSUB { 
1320,1150,1266,1276,1206,1230, 1146, 1160, 1179, 1249, 1259, 
1189,1296,1196,1200,1210,1226, 1310, 1300 
1986 NEXT I:FT=PT+1:IF PT:RA (NM) THEN FT=ÿ 6K< 
1699 RETURN #AL£ 
1196 DC: 
1110 AE "HD< 
1126 ‘æx4 SONGS DES INSTRUMENTS ##4 ?XE£ 
ESC TL LILI ESS C EC ECELCLCLCES #KF< 
1146 SOUND 128+1-(1=3),0,6,4,1,1,0:RETURN grosse caisse :QG< 
1159 SOUND 128+1-(1=3),142,0,0,2,2,5:RETURN caisse clai >YH< 
re 
1169 SOUND 128+1-(1=3),0,,0,3,3,3:RETURN'charleston  ?KJ< 
1176 SOUND 128+1-(1=3),142,6,0,4,4,5:RETURN cymbale 2KK< 
1189 SOUND 128+1-(1=3),71,0,0,5,5,9:RETURN'clochei #EL< 
1195 SOUND j28+I-(I =3),16, 0,6,6,6,9:RETURN'claves > TM 
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1206 SOUND 128+1-(1=3),0,6,0,7,7,13:RETURN'bidon RE 
1219 SOUND 128+1-(1=23),2275,6,6,8,6,0:RETURN'pianche dE 
1226 SOUND 128+1-(1=3),0,54,7,16,,1:RETURN glissement  *F: 
236 SOUND 128+1-(1=3),6,14,6,11,,31:RETURN caisse 4  :DG: 
1246 SOUND 128+1-(1=3),0,14,0,11,.1:RETURN'cymbale 1 2WH: 
1256 SOUND 128+1-(1=3),0,14,6,12,11,1:RETURN cymbaie 2 FJ< 
1266 SOUND 128+1-(1=3),6,14,8,11,,8:RETURN'caisse i 2FEE 
1279 SOUND 128+1-(1=33,379,14,6,11,1,18:RETURN'caisse 2 *FL< 


1289 SOUND 128+1-(1=3),716,14,0,11,11,25:RETURN caisse MM: 


: 
1296 SOUND 128+1-(1=3),95,14,6,11,1%,16:RETURN'clochez :ÜN< 
369 SOUND 128+1-(1=3),6,6,9,9,9,6:RETURN silence *ÉE< 
1319 SOUND 128+1-(1=3),6,1,15:RETURN 'couic 3PF< 
1324 RETURN :MG< 
1336 FJHE 
1346 HE #DJ< 
350 ‘444 JOUER #44 HE: 
STE LESCEEEEETE #FL£ 
1376 MODE {:LOCATE 17, 1:PRINT®--JOUER--"* KM: 


1386 LOCATE 1,5:F0R 1=6 TO 9:PRINT" “sienm$ Ci): NEXT UNE 
1396 PRINT:FRINT"I6,,,9) : Jouer Rvthme‘:PRINT'EDEL FYF< 
: Arret'":PRINT'IENTER] : Menu 

1406 GOTO 1428 ÊTES 
1414 LOCATE 1,9+tnm: PRINT" “ssnm=atLOCATE 1,5tnmi PRINT": 76: 
“sspt=0:EVERY tpinmi,3 GOSUE 1476 

1420 a$=INEEY#: IF a$=CHR$(i3) THEN 2=REMAIN(3::60T0 346 >GH4 


1430 IF a$=CHR$(&7F) THEN 2=REMAINIZ) :LOCATE 1.5+nmsPRI JE 
NT CR ; 

1440 IF a$:="0" AND ati="9" THEN a=VAL(a$i: IF nm$laiis" FE: 
Sans Nom" THEN z=REMAIN(S):G0T0 1416 


1459 GOTO 1424 BL: 
1460 ” ?NM< 
DAT HIER 3YNE 
1489 ‘##* RYTHME MANUEL ##4 3 TFÉ 
1490 HIER AD: 
1909 MODE 1:LOCATE 19, 1:FRINT"--RYTHME MANUEL--" #CGi 


1519 RESTORE:FOR I=1 TO IB:READ IS:LOCATE 1-(129#19.3+ >TH< 
[+ (1934: PRINT CHRS(é4+1)+" — IS: NEXT: PRINT: PRINT", 
2,3 : VOIE AB,C':PRINT:FRINT'LENTER] : MENU" 

1520 1=2:SPEED KEY 255,255 

1536 LOCATE 1,20:FRINT"VDIE : “:CHR$(od+ii: 

1549 AS=INKEYS: AS=UPPERS (AS) ; 
1950 1F A$3="1" AND A$<="2" THEN I=VAL(AS):G0TO 1570 NM 
1569 IF A$>="a" AND A$<="R" THEN ON ASC(A$)-64 GOSUE 11 EN 
50,1260, 1270, 1280, 1236, 1140, 1166, 1170, 1240, 1250, 1180, 12 
99,1190, 1200, 1219, 1229, 1310, 1300: G0T0 1546 

1576 IF A$=CHRS(13) THEN SPEED KEY 30.2:G0T0 346 ELSE 1 :JP4 
549 


1589 FRD< 
1590 HE ?CR£ 
1600 ‘##+ EFFACER #44 3 THE 
1610 HN SNJ< 
1626 MODE 1:LOCATE 17, 1:PRINT"EFFACER" F1K£ 
1639 LOCATE 1,9:F0R 1=0 TO S:PRINT IiNM$CI):NEXT >FL£ 
164% PRINT:PRINT'MENU : CENTER] FYME 


1659 PRINT:PRINT'TAPER LE NUMERO DU RYTHME À EFFACER  ?CN< 
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1666 A$=INÉEYS: IF A$=CHR$(13) THEN 346 ELGSE IF A$:"9" D RP<- 
R A$>"9" THEN 1666 ELSE NM=VAL(A$) 

1676 IF NMH$(NM)="Sans Nom” THEN 1666 

1686 LOCATE 12,5+NM:FRINT"> CONFIRMER FAR ‘OUI ‘:(0]" 
1696 A$=INÉEYS: AS=UFPERS (AS): IF A$="" THEN 1696 ELSE IF 
A$£:"0" THEN LOCATE 12,5+NM:FRINT'@": :60T0 166ÿ 

1708 LOCATE 12,5+NM: PRINT '@": :NM$(NMj="Sans Nom": R% (NM) 


=: TPA(NMI=10: FOR J=6 TO 62:R$(nm.Ji=" 
1ë26 

1718 : 

1720 HEIN 

1756 ‘### SAUVEGARDE #44 

1740 CRAN 

1756 MODE 1:LOCATE 15, 1: PRINT'SAUVEGARDE * 


“:NEXT J:G0TO 


1760 LOCATE 1,5:FOR 1=6 TO G:PRINT LiNMSCD):NEXT: PRINT: à 


PRINT: PRINT'MENU : LENTER]': PRINT: PRINT: PRINT'TAPER LE 
No DU RYTHME À SAUVEGARGER" 


>< 
>RR< 
>PT< 


#5 


1776 AS=INÉEYS: IF A$=CHRS (13; THEN 340 ELSE IF A$<"O"OR :MR< 


À$:"9" THEN 1776 ELSE NM=VAL(4$) 
1786 IF NM$(NM)="Sans Nom" THEN SOUND 1,146:G0T0 1776 


1799 LOCATE 1,5+#nm: PRINT "x" snmsnmg (nm) s "y": LOCATE 1,29: 


PRINT"Sauvegarde en cours ...": 

1866 OPENOUT NMS$ (NM) +", RYT "2 HRITE#9, 4 CM, TF4 (NM : FOR 
1=4 TO 62:HRITE#9,r$ (NM, Li :NEXT:CLOSEOUT:LOCATE 1,25:FR 
INT'@'::6070 1774 

1816 

LB AMENER 

1036 ‘##*+ CHARGEMENT ### 

1848 HIER 

1856 MODE i:LOCATE 15, 1: PRINT "CHARGEMENT * 


186% FÜR 1=6 TO 9:1F NM$(1}<;"Gans Nom" THEN NEXT:LOCAT : 


E i.12:PRINT"Plus de place pour un autre chargement Âp 
puyer sur une touche ...":CALL &BB66:G0TO 340 
1876 NM=I 


1889 LOCATE 1,12:FRINT'Inserer la disquette pour ie cha : 


rgement puis appuyer sur une touche ...":CALL BEB66: MOD 
E 1:LOCATE 15, 1:PRINT'CHARGEMENT":LOCATE 1,5 


1896 DIR, "*RYT':FRINT:FRINT'Entrer le nom du rythme a : 


charger :" 

1909 INPUT", nm$:nm$=UFFERS (nm$) 2 IF nm$="" THEN 344 EL 
SE IF LENinmé):8 AND INSTRO".RYT'NM#2=6 THEN SOUND 1,1 
66:G0T0 1966 

1919 IF INSTRO".RYT'NM#)=6 THEN NMS=NM#&+".RYT" 

1929 NM$(NM)=LEFTS (NMS, LEN(nm$)-4} :OPENIN NM$: INPUTHG,r 
AUNM),TPA (NM): FOR 1=6 TD G2:LINE INPUT#9.r$ (NM, Li: r$ (NM 
LD)=MIDS$ (r$ (NM, 1) ,2,3) :NEXT: CLOGEIN 


1939 MODE 1:LOCATE 15,1:PRINT'CHARGEMENT “:LOCATE 1,5:F0 2EF 


R 1=6 TO 9:IF 1=nm THEN PRINT ‘os IiNM$(I)5 "a" ELSE FRI 
NT IsNM$(I) 

1946 NEXT 

1956 PRINT:PRINT:FRINT" Autre chargement CO/Nj" 


1966 A$=INKEYS: A$=UFPERS (A$): IF A$="0" THEN 1050 ELSE I ; 


F a$="N" THEN 345 ELSE 1960 
1976 

1988 © EH 
1996 ‘#44 RETOUR BAGIC #44 
2006 HER 
2616 MODE 2:END 


>MP< 


AT 


#YNE 


Claude LE MOULEC 


Les jeux de réflexion sont le 
plus souvent trop fades à votre L | ST | N G ] 


goût. Pour vous permettre de 


changer d'avis, entrez donc le 10 REM ssssssesesseneeeneneneestttt »6B< 
és dd nt De Ann au 26 REM : ; FC 
listing de Trois Dés. Vous serez 30 REM : ; >GD4 
très agréablement surpris par 49 REM : ! HE 
les araphism t |’ ion. J0 REM : : JF 
_— mo h 6 REM : CLAUDE LE MOULLEC ; ?KG< 
Le mode d'emploi est inclus 70 REM : : > LH 
dans le programme. 80 REM : : 2MJ< 
90 REM : : ?NE< 
Chargement : tapez 190 REM : ; »GB4 
et sauvez les deux premiers 110 REM sssssssssssssisesesienenients ?KC* 
listings et sauvez-les = GOSUB 559 Ai 
130 SOUND 1,758,0,0,11:SOUND 2,199,9,0,11:SOUND 4,755, >KE< 

respectivement sous les noms 6,11 | 
/TROISDES’’ et ‘’PART2’’. 140 EVERY 5 GOSUB 630 HF 


159 MODE 1:BORDER 6: INK 0,0: INK 1,20: INK 2,6: INK Ca »TG< 
Quant au 3° programme, il 


faudra le lancer par RUN puis 160 WINDOW #1,1,40, 12, 25:PAPER #1,2:CLS #1 >GHé 
nas — 170 FOR i=1 TO 15 STEP 2:PLOT 1,226-i"2, 1:DRAM 639,226 HU 
effectuer un SAVE ‘’PART3"", i°2,1:PLOT 320,225: DRAM 1,226-i"2:PLOT 320,225: DRAM 639 
b,&9000,&1000.  224-i"2,1:NEXT i:PLOT 320,225:DRAN 190,1, 1:PLOT 320,22 


S:DRAW 540, 1,1:PLOT 320,225: DRAW 250, 1,1:PLOT 329,225:D 
RAW 399,1,1 


180 WINDOW #2,8,12,17,21:PAPER #2,0:CLS #2 >TK< 
199 FOR h=9 T0 32 STEP 2:PLOT 112+h,144+(h/2),0: DRAM 19 >GLé 
24h,144+(h/2):NEXT 


200 FOR h=0 TO 32 STEP 2:PLOT 192#h,64+(h/2),0:DRAW 192 >FC< 


25 


4h, 144+(h/2) :NEXT 
210 PLOT 112,144, 3:DRAN 192,144: DRAM 192,64:DRAN 112,64 >QD4 
:DRAW 112,144 


220 DRAW 144, 160:DRAW 224, 160:DRAW 192, 144 DLE< 
230 PLOT 224,160:DRAW 224,80: DRAM 192, 64 >CF< 
240 SYMBOL AFTER 32 LG 
250 SYMEOL 38,255, 255, 255, 255, 255, 255, 255, 255 >AH< 
260 SYMBOL. 200, 24,60, 40, D, b, 2, 60, 24 DE 
270 SYMEOL 201,0,0, 126,255, 126, 6, 0,0 >Hkc 
280 a$=CHRS (231) +CHR$ (32) +CHRS (231) YAL£ 
290 LOCATE 9,18:PEN 3:PRINT a$:LOCATE 9,20: PRINT a$  DCM€ 
300 PRINT CHRS(22)+CHR$ (1) : PEN 1 >VD< 
310 LOCATE 28,9:PRINT" ! ! 1" }QE< 
320 LOCATE 28,10:PRINT" titi" »GF< 
330 LOCATE 28,11: PRINT" 111" MG 
349 LOCATE 28,12: PRINT" (tin >PH< 
390 LOCATE 28,13:PRINT" 11" RK 
360 LOCATE 28,14: PRINT" 11" >UK< 
370 LOCATE 28,1S:PRINT" !11" LE 
380 LOCATE 28,16:PRINT" titi" UM 
390 LOCATE 28,17:PRINT" III NU" >UN< 


409 PEN 3:LOCATE 14,17:PRINT CHR$ (200) :LOCATE 13,20:PRI AE 
NT CHR$ (200) :LOCATE 11,16:PRINT CHR$ (201) 


410 a$=CHR$ (241) VF< 
420 GOSUR 430:G0T0 929 DREX 
439 FOR h=1 TO 80: x=INT (RND#604)+18:y= INT (RND#170)+210: DNHE 
PLOT x,y:NEXT 

440 MINDOW #1,2,39,2,6:MINDON #2,2,39,7, 12 NX 
450 GOSUB 480 >DK< 
460 PEN 3:LOCATE 17,8:PRINT" presente" SUL4 
470 RETURN >< 
480 SYMBOL AFTER 32 >TN< 


499 ph$="L.M.C'":PEN 2:LOCATE 13,3:G0SUB 509:ph$="SOFTHA >DP< 
RE":PEN 1:LOCATE 21,3:60SUB 590:ph#$="T ROIS DES 
“PEN 0:LOCATE 20,22:60SUB 500:RETURN 

590 FOR j=1 TO LEN(ph$):FOR T=ÿ TO 7:P=PEEK(HIMEM+1+(AS 
C(MID$(ph$, j,1))-32)#8+T) 

316 m(T)=PINEXT: SYMBOL 149,m (9) ,m(0) ,m(1),m(1) ,m(2),m(2 >WG< 
dm) ,m(3): SYMBOL 141,m(4) ,m(4) ,m(5) ,m(5) ,mib) ,mtb) ,m{ 
7),m(7):PRINT CHRS (140) ;CHRS (10) ; CHRS (8) ; CHR$ (141) ; CHR$ 
(11): 


520 NEXT:RETURN MH: 
530 ENV 1,1,14,1,1,0,4,5,-3, 10 VI 
540 ENV 2,1,13,1,1,0,4,5,-3, 10 JiK< 
550 ENV 3,1,13,1,4,-3,8 YALK 
S6û ENV 11,15,1,15,1,0,260,15,-1,5 >UM 
570 ENT -3,1,1,2,2,-1,2,1,1,2 > 
580 DATA 1,1.33,1,.75,.67,.75 >aP< 


590 DIM TTRA(S):RESTORE 580:FOR 1=0 TO 5:READ TTRA(L):N >PQ 
EXT 

690 DATA 2,2,2,1,1,1 >66< 
610 DIM TREP(S):RESTORE 600:FOR 1=0 TO S:READ TREP(I):N >ZH< 
EXT 

620 rep=2:th=i:occ=1:ix=0:tra=ttralix):debut=-1:RETURN DRJé 
630 IF (SQ(1) AND 7)=0 OR (5Q(2) AND 7)=0 OR (5Q(4) AND >YK< 
7)=0 THEN RETURN 

640 IF NOT DEBUT GOTO 690 

650 IF TH=1 THEN RESTORE 800:EV=1 


>CL£ 
+EM< 
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60 IF TH=2 THEN RESTORE 849:EV=2: 0CC=1 

&7® IF TH=3 THEN RESTORE BB0:EV=1:ET=3 ELSE ET=0 

680 DEBUT=9 

690 READ PA,PC, PE 

700 IF PA=-1 THEN 760 

710 IF TH=2 THEN PB-PB/2 

729 SOUND 1,PA/OCC/TRA, 16,0,3 

730 SOUND 2,PB/0CC/TRA, 16, 0,EV 

749 SOUND 4,PC/0CC/TRA, 16,0, 3,ET 

750 RETURN 

760 DEBUT=-1:REP=REP-1: IF REP&30 THEN RETURN 

770 IX=IX+12:1F IX=6 THEN IX=0:0CC=2: TH=TH+1: IF THS3 THE 
N TH=1 

780 TRA=TTRA(IX) :REP=TREP (IX) 

790 RETURN 

800 DATA 379,253, 758, 253, 149,0, 190, 159,0, 253,253, 676 
810 DATA 379,190,0,213, 169,0, 253, 284, 638, 379, 213, 

820 DATA 149, 142,0, 253, 284,0, 379, 190,0, 190, 159,638 

830 DATA 169, 142,676, 253, 213, 758, 213, 169,379, 190, 159,25 
3,-1,0,0 


840 DATA 379,253, 379,253, 149,338, 190, 199,318, 253, 253,28 > 


4 


850 DATA 379,190, 253,213, 169, 239, 253, 284, 284,379, 213,25 à 


3 


860 DATA 189,142,0,253, 284, 190,379, 190,159, 190, 159,319 
876 DATA 169,142,9,293,213, 190,213, 169,338, 190, 159, 190, 
-1,0,0 

886 DATA 279,293, 190,253, 149,0, 190, 159,213, 253,253, 190 
899 DATA 379,190, 239,213, 149, 190,253, 284, 190,379, 213,25 
3 

900 DATA 149, 142,0, 293, 284, 196, 379,190, 190, 196, 159, 284 
910 DATA 169, 142,0, 253,213,319,213, 169,338, 190, 159,379, 
-1,0,0 

920 PRINT CHR$ (22) +CHRS (0) 

930 WINDOW #1,1,49,25,25:PAPER #1,0:CLS #1 


940 PEN 1:t$="":MHILE INKEV$<"":MEND: PEN Z:A$=" CIJ-RE : 


GLES C2]-JEU C1]-REGLES C21-JEU* 

990 WHILE T$="":B$=LEFTS (A$, 1) 

960 PEN 3:LOCATE 1,25:PRINT A$ 

970 T$=INKEYS$: A$=RIGHTS (A$, LEN (AS) -1) +B$: END 
986 IF T$="{" THEN GOTO 1910 

999 IF T$="2" THEN RUN "'FART2" 

1000 T$="":60T0 94 


1919 MODE 1:LOCATE 16,1:FEN 1:PRINT'TROIS DES":PEN Z:LO 


CATE 16,2: PRINT" --—------ £ 
1926 PEN 2:LOCATE 1,4:PRINT" Deux DES veulent faire 

un 421 mais leur compagnon est a l'autre bout de la ga 
laxie." 

1930 LOCATE 1,7:PRINT" lis chargent le TRACTOR de lu 

i fairefranchir les 12 zones qui les separent." 

1948 LOCATE 1,9:PRINT" Le TRACTOR est un robot poss 

edant un pouvoir magnetique sur les DES .Cela lui perm 

et de les deplacer sans jamais les toucher car tout co 

ntact est mortel." 

1950 LOCATE 1,13:PRINT" Pour que le flux du TRACTOR 

agisse il ne faut pas qu'il soit ni trop pres ni trop 
loin du DE ." 

1966 LOCATE 1,16:PRINT" 


Tout contact du TRACTER et d 


*Edi 


#KR< 


#TU4 


HAS 
?TL< 


>FG4 
3JR€ 


>KU< 
EVE 


169 SYMBOL 
176 SYMBOL 
189 SYMBOL 
199 SYMBOL 
299 SYMBOL 


TROIS DES 


AFTER 97 
115,9,56, 64, 56,4, 129,0,0 
99,0, 65, 64,64, 64, 65,0, 0 
194,0,68, 48, 124,68, 68, 0,0 
195,0,56, 16, 16, 16, 56,0, 0 


u DE avec un dome d'energie est mortel.Frenezgarde a 


votre inertie de deplacement." 
1974 LOCATE 1,19:PRINT" 


Autre piege:les etoiles.Elle :UJ 


s ont uneffet perversielles teleporte le TRACTORdans un 


coin de la zone (le pire generalement)." 
1989 LOCATE 15,23:FEN 1:PRINT'BONNE CHANCE" 
199% GOTO 946 


LISTING 2 


10 REM sssssessessseneeseeneneneesse 
26 REM : 
30 REM : : 
46 REM : ! 
99 REM : CLAUDE LE MOULLEC 

& REM : : 
70 REM : : 
BÔ REM : : 
90 REM : : 
160 REM : - 
119 REM sosscessgesseseoesesseneueese 
120 REM : : 
136 REM : initialisation : 
149 REM : : 
150 REM sossessnssesenenenenceessese: 


>< 
:FL“@ 


?GB< 
FC< 
?GD< 
*HE< 
3 JF£ 
FKG< 
?LHE 
3MJ< 
PNE< 
:6B€ 
?KC< 
JD 
:JE< 
iLF£ 
3PG< 


210 SYMBOL 108,0,64,64,64, 64,124, 0, à 

220 SYMBOL 191,6,124,64, 124,64, 174,0,0 

230 SYMBOL 118,0, 68, 68, 68,49, 16,0,0 

249 SYMBOL 116,0,124,16, 16,16, 16, 0,0 

250 SYMBOL 109,9, 40,84, 84,84,84,0,0 

260 SYMBOL 111,6, 124,68, 6B, 68, 124,0,0 

270 SYMBOL 97,0, 124,68, 124, 68,68, 0,0 

286 SYMBOL 237,15,15,15,15,15,15,15,15 

290 SYMBOL 236,240, 240, 240,240, 246, 249, 240, 240 
360 SYMBOL 216,238, 238, 238, 238, 278, 218, 278,0 
310 SYMBOL 233,0, 126,90, 126, 126,90, 126,0 

320 SYMBOL 240,0,0,0,0,0,6,3,15 

330 SYMBOL 241,0,0,0,0,0,96, 192,249 

340 SYMEOL 242,3,6,0,0,0,0,0, 0 

350 SYMBOL 243,192,96,0,0,0,0,0,0 

360 SYMBOL 253,255, 193, 193, 255, 255, 193, 193, 255 
370 SYMBOL 254,192,192,0,6,0,0, 192, 192 

380 SYMEOL 255,66,62, 15,7,7, 15,62, 60 

390 MEMORY LFFF 

400 LOAD "part", 29000 

419 CALL 49700:60T0 3450 


420. REM sarsonerseenennensriNnrsnns 
436 REM : ! 
440 REM : variables de base 

450 REM : : 
460 REM sssssssssseeesesensenenennes 


474 REC=0 
486 DEF FN polx,y)=8C@00+(y-1) 40604 (x-1)#2 


499 MODE 1:INK O,0:INE 1,2:INE 2,20:INE 3,6: BORDER 1:FA ? 


PER @:CLS 
998 nr$=CHR$ (22) +CHR$ (9) 
919 tr$=CHR$(22)+CHR$ (1) 


929 etoil$=CHR$(240)+CHR$ (241) +CHR$ (8) +CHR$ (8) +CHR$ (10) : 


+CHR$ (242) +CHR$ (247) 
J39 ta=iivie=S:sc=û: temps=12:DIM ec (40,29) 
546 EVERY 3506,2 GOSUB 2590 


D00. REM séssssineneenenenteenseneenss 
J6ÿ REM : : 
976 REM : dessin decor : 
984 REM : : 
DUDUREN sésnessenenesonessstssnnnnss 


660 ay=8:FDR h=1 TO 23 STEP 2 
618 SPRIT,FN polh,12-ay),49800 
624 ay=ay+i:NEXT 

636 :SPRIT,FN po(25, 1),49640 
648 SPRIT,FN po(1,13),89129 
656 ay=ÿ:FOR h=11 TO 37 STEP 2 
66 :SPRIT,FN polh,21-ay),8%9000 
670 ay=ayti:NEXT 

686 :SPRIT,FN po(37,7),8k95D0 
69% RESTORE 734:FOR h=1 TO 6:READ a,b,c 
766 ay=0:FOR g=a TO b STEP 2 
719 ISPRIT,FN poig,c-ay),49306 


720 ay=ayti:NEXT g,h àFK£ 
739 DATA 1,27,14,1,31,16,1,35,18,1,37,20,3,37,21,7,37,2 3EL< 
1 


740 FOR h=29 TO 37 STEP 4 SVM 
750 ISPRIT,FN polh, 1),#9540:NEXT >TN< 
769 FOR h=i T0 5 STEP 2 ÿCP< 
770 !SPRIT,FN po(37,h),491B0:NEXT >TQK 
780 FOR h=15 TD 21 STEP 2 JMR€ 
790 ISPRIT,FN poli, h),49240:NEXT BUT 
800 FOR h=12 TO 21 DJ 
819 ISPRIT,FN po(35,h) 49402 #LH< 
829 ISPRIT,FN po(35,h),k9381:NEXT *DL< 
830 FOR h=18 TO 21 >NM< 
840 :SPRIT,FN po(23,h),49402 YLN£ 
850 !SPRIT,FN po(23,h},49381:NEXT >DP4 


860 ISPRIT,FN pot19,19),89%B1:LOCATE 19,19:PEN Z:PRINT :LQ£ 
CHR$(143):LOCATE 29, 19:PRINT CHR$(143) 

870 ISPRIT,FN pol31,13),89%81:LOCATE 31,13:PRINT CHR$(i >UR< 
AS): LOCATE 32,13: PRINT CHR$ (143) 

889 LOCATE 35,12:FEN 2:PRINT CHR$(143) :LOCATE 35,13:FRI AT< 
NT CHR$ (143) 

890 LOCATE 27,17:PRINT CHR$(143):LOCATE 23,18:PRINT CHR ?RU< 
$(143) 


960 RESTORE 949:F0R h=1 TO 3:READ a,b,c 3KKE 
918 ay=0:FOR g=a TO b STEP 2 DL 
920 :SPRIT,FN polg,c-ay),89442 FNM£ 
939 ay=aytliNEXT g,h +JNé 
94ù DATA 13,37,21,19,29,19,31,27,13 RP< 
954 WINDOW #1,1,49,22,25:CLS #i AGE 


960 PLOT 6,400,2:DRAN 649,400: DRAH 646,66: DRAH 1,66:DRA :GR< 
W 1,400:PLOT 2,398: DRAN 638,298: DRAN 638,64: DRAW 3, 64: D 
RAW 3,398 


978 PLOT 4,396: DRAM 636,396: DRAW 6:36, 66 UT 
980 PEN 2:LOCATE 4,23:FRINT'sc #MU< 
ta":LOCATE 4,24: PRINT" hi time" 


990 PEN 1:LOCATE 30,23: PRINT tré;" 0":G0SUB 1149:6 PHV4 
OSUB 1189 

1906 PEN Z:LOCATE 22,24: PRINT CHR$(216)+CHR$(216):PEN 1 AB 
:LOCATE 34,24:PRINT CHR (216) +CHRS (216)+CHR$ (214) +CHRS 

216) 

1919 PLOT 44,12, 1:DRAW 44,52: DRAM 196,52: DRAM 196, 12:DR ?XC€ 
AW 44,12 

1926 PLOT 428, 12:DRAN- 428,52: DRAW 596,52: DRAW 596, 12:DR >GD< 
AW 428,12 

1930 FOR h=12 TO 52:PLOT 208,h:DRAW 416,h:NEXT h: MME< 
1949 PEN 3:LOCATE 16,23: PRINT tré; "TROIS DES" >EF< 
1950 PEN 0:FOR h=18 TO 22:LOCATE h,24:PRINT CHR$(233):N NGX 
EXT 

1969 PEN Z:LOCATE 31,23: PRINT CHR$(255):PEN 1:LOCATE 31 >JH€ 
,23:PRINT CHRS (254) 


1976 PEN 2:LOCATE 29,23:PRINT CHR$ (253) >NJ< 
1980 GOTO 2190 FUKK 
1996 REM ssssesesssssssssssenrisssisss #WL£ 
1199 REM : : 2KC< 
1119 REM : gestion des scores  : >MD< 
1129 REM : : ?ME<£ 
1130 REM sosssssssessenesseentestiss: :QF< 


28 


1149 PEN 1:LOCATE 7,23:PRINT nr$:"000000":1IF sc=û THEN J5* 
RETURN 

1150 IF sc<1900 THEN LOCATE 10,23: PRINT nré;" 
E 9,23:PRINT tr$;sc: RETURN 

1169 IF sc£10009 THEN LOCATE 9,23:PRINT nr$;"  "iLOCA 3XJ< 
TE 8,23:PRINT tré; sc: RETURN 

1179 IF sc>160906 THEN LOCATE 8,23:PRINT nr$;" "LOC 2YK< 
ATE 7,23: PRINT tr$;sc:RETURN 

1184 PEN 1:LOCATE 7,24: PRINT nr$; "690000": 1F rec=û THEN NL 
RETURN 

1190 IF rect1999 THEN LOCATE 19,24:PRINT nr$;"  ":LOCA ?TM< 
TE 9,24:PRINT tr$s;rec:RETURN 


“sLOCAT ?NH£ 


1206 IF rec£10096 THEN LOCATE 9,24:PRINT nré;" "LOC RD< 
ATE 8,24: PRINT tr$;rec:RETURN 

1216 IF rec>10999 THEN LOCATE 8, 24:FRINT nr$;" "LO TE“ 
CATE 7,24: PRINT tr$;rec:RETURN 

1226 PEN O:LOCATE 26,22:PRINT CHR$(143)+CHR$ (143) 3HFE 
1230 IF ta‘i6 THEN 1244 ELSE 1256 ?PG* 
1246 FEN 1:LOCATE 36,23: PRINT"O":LOCATE 36,23: PRINT tré 2NHS 
ta: RETURN 

1256 PEN 1:LOCATE 35,23:PRINT tr$; ta: RETURN FEJ< 
1260 REM sg fensenisentensessnnnsss PAL 
1278 REM : : LE 
1286 REM : routine principale : >AM< 
1296 REM : | SWNE 
1300 REM ssssseseecessnsnensesensenss: FPE< 
1319 PRINT nr$:FOR h=6 TO 7 ?GF<£ 
1326 PLOT -8+h,174,2:DRAW 192+h,76 :UG< 
1336 FLOT 419+h,384:DRAW 63B+h, 284 >DHE 
1346 PLOT 348+h,350,0:DRAW 544+h,254 AE 
1356 NEXT:LOCATE 2,2 ?NÉE 
1360 x=184:y=15b: xd=128: yd=124 EL 
1376 CALL 49809, (x/2)-4, (y/2)+7,2 MM 
1386 CALL 49B66, (xd/2}-4, (yd/2)+7,2 2XNE 
1399 IF fin=i THEN 2950 >JP£ 
1469 IF INÉEY(fe)=0 THEN 1750 ?XF< 


1416 IF INKEY(hai=9 THEN sh=sh+2: sb=û: sg=6: sd=0:G0T0 15 >JG< 
94 
1426 IF INKEY(ba)=0 THEN sb=sb+2:sh=0:5g=0:sd=0:G0TO 15 ?CH< 
5 IF INKEY(ga)=0 THEN 5g=5g+2: sh=0: sb=û: sd=0: GOTO 16 *KJ< 
ti IF INKEY(da)=0 THEN sd=sd+2:sh=0:sb=0:5g=0:G0T0 16 :KE< 
SL) 


1456 IF sh>9 THEN 1560 #HL< 
1468 IF sb THEN 1550 >HM£ 
1479 IF sg>0 THEN 1600 #KN< 
1489 IF sd>6 THEN 1650 #NP* 
1496 GOTO 1399 2MQ£ 


1506 POKE 4992E,8:CALL 49802: CALL &9803:POKE &992E, 1:CA >RGK 
LL 49893 
1519 x=x+4:y=y+2:sh=sh-1:60SUB 199 >VH£ 
1520 IF feu=0 THEN 1399 ELSE 1520 DJ 
1539 POKE H9C2E,B:CALL #9BO3:CALL &9B03:POKE BOC2E, 1:CA 2É< 
LL 49803 
1549 xd=xd+4: yd=yd+2:G0SUB 1950:G0T0 1396 ?6L£ 
1550 FOKE 4992E,4:CALL 49893: CALL &9803:POKE 8992E,2:CA >UM< 
LL 49863 


1560 x=x-4:y=y-2:sb=sb-1:GOSUB 1966 

1579 IF feu=ÿ THEN 1396 ELSE 1585 

1584 POKE 49C2E, 4:CALL #9B03:CALL &OBO3:POKE LOC2E, 2: CA 
LL &9B03 

1599 xd=xd-4:yd=yd-2:G0SUB 1956:G0T0 1396 

16h POKE #992E,4:CALL 49843: CALL &9863:POKE &992E, 1: CA 
LL 49803 

1614 x=x-4:y=y+2:69=69-1:G0SUR 1900 

1526 IF feu=6 THEN 1399 ELSE 16:34 


1634 POKE WOC2E, 4:CALL &9B63:CALL 8&9BO3:POFE B9C2E, 1:CA > 


LL 89843 
1646 xd=xd-4: yd=yd+2:GOSUB 1950: G60T0 1396 


1654 FOKE 4992E,8:CALL 89803: CALL 49863: POKE &992E, ZiCA à 


LL 49863 

1668 x=x+4iy=y-Zisd=sd-1:GOSUB 1909 

1670 IF feu=6 THEN 1396 ELSE 1686 

1684 FOKE WOC2E,8:CALL &9BG3:CALL &9B63:POKE R9C2E, 2: CA 
LL 49893 

1698 xd=xd+4: yd=yd-2:G0SUB 1956:G0T0 1396 


1700 REM sense nssssssssse 
1719 REM : : 
1729 REM : aimant on/off : 
1736 REM : : 
1740 REM rires 


1756 IF feu=1 THEN GOTO 1826 

1766 trac=x+(y#2):dcal=xd+(yd#2) 

1776 lign=trac-deal 

178% IF lign:84 AND lign<266 THEN 1796 ELSE 1816 

1794 feu=1:LOCATE 29,23:PRINT nr$;" ":PEN 1:LOCATE 36,2 
SPRINT CHR$ (253 

186% ENT 3,164,-50,36:SOUND 1,646,20,7,0,3 

1819 GOSUB 3324:G60T0 1396 


1820 feu=ü:LOCATE 36,23: PRINT nr$;" "PEN {:LOCATE 29,2 


3: PRINT CHARS (253) 
1836 ENT 3,200, -10,10:SOUND 1,100,20,7,0,3 
1849 GOSUB 3320:60T0 1794 


1000 REM sésnsemeeuessesenesenecerese 
1860 REM : : 
1874 REM : test des couleurs 

1880 REM : ù 
1890 REM sessesemesensenesenennssoses 


1900 IF TEST(x,y)=2 THEN 1919 ELSE RETURN 

1916 xt=INT((x-11/16)+1:yt=25-INT (y-1) /16 

1920 IF ec(xt,yt):9 THEN GOSUB 2766:RETURN 

1939 fin=i:fi=1: RETURN 

1946 REM ::: test couleur du des ::: 

1950 IF TEST(xd,yd}=2 THEN 1966 ELSE 1986 

1969 xt=INT((xd-1)/16)+i:yt=25-INT (yd-1) /16 

1979 IF ec(xt,yt}>0 THEN RETURN ELSE fin=1:RETURN 
1980 IF TEST(xd,yd)=0 THEN fin=i:finta=i:ENT 2,190,-10, 
19:SOUND 1,196,80,7,9,2 

1998 RETURN 

2000 REM songes 

2610 REM : : 


2920 REM : tableau +i : 
2930 REM : : 
2049 REM rss nee eemitensnsessense 


2056 IF finta=0 THEN 2299 


?RN£ 
?PP< 
>BQ< 


RR< 
?NH£ 


NP4 
> 
>BR€ 


QT < 
>UJ< 
>TK£ 
>IL4 
>VMé 
>YNC 
>GP< 
FNQ< 
>NR< 
HT 
>AU< 


?BU< 
PEV£ 


2FN< 
3FP< 
*UG< 
:GR< 
>DT< 
FEUX 
EYA'E 


TROIS DES 


2660 #in=ÿ:finta=b: feu=0: ta=tati 2NJ< 
2476 sc=5c+1006:GOSUB 1140 NÉ 
2084 LOCATE 30,23:PRINT nr$;" ":LOCATE 29,23:PRINT CHR$ >DL< 
(253) 

2699 CALL 899D8:CALL %9CD8 >MM£ 
2199 GOSUB 3976: sh=0: sb=0: sd=0: 5g=0 >MD< 
2119 ON ta GOTO 2120,2130,2146,2150,2160,2170,2180,2190 :PE< 


2200, 2219, 2220, 2230 


2126 RESTORE 3399:G0SUB 2116:GOSUB 1229:6070 1319 2RF< 
2174 RESTORE 3496:G60SUB 3114:G0SUB 1226: 6070 1316 :JG< 
2140 RESTORE 3426:G0SUB 3114:G0SUB 1229:G0T0 1314 2MH£ 
2150 RESTORE 3436:G0SUB 3119:G0SUB 1220:607T0 1716 PJ 
2166 RESTORE 3450:G0SUB 3116:G0SUB 1226:G0T0 1316 ?TK€ 
2176 RESTORE 3476:G60SUB 3114:G0SUB 1229:G60T0 1316 ML 
2188 RESTORE 3496:G0SUB 3119:G0SUB 1226:607T0 1314 ?1M€ 
2190 RESTORE 3516:60SUB 3119:GO0SUB 1226:G60T0 1319 ALES 
22006 RESTORE 2526:60SUB 3119:G0SUB 1226:6070 1316 ?LE< 
2219 RESTORE 3556:60SUB 3119:G0SUE 1226:6070 1316 FFE 
2226 RESTORE 3570:60SUB 3119:G0SUB 1226:60T0 1316 2TG< 
2236 RESTORE 3590:G0SUB 3110:G0SUB 1226:6070 2836 EH 
2240 REM 59229990 900009n022250082525 #UJ< 
2256 REM : : #TÉ< 
2264 REM : vie -i : #UL£ 
2276 REM : : FM 
2280 REM 22229999 90090029000222082005: #YN£ 


2290 FOR h=1 TO S:OUT BCD, 2: OUT &EDO6,49:FOR t=1 TD 5 ?AP< 
d:NEXT:SOUND 4,1569+h#190,29,7,4,9,h:OUT 8BC64,2: OUT BB 
D96,43:FOR t=1 TO SO:NEXT:NEXT h:OUT &BCOG, Z:OUT BBDÜN, 

46 

2766 sh=6:sb=û: sd=0: sq=ù FFE 
2316 feu=b:LOCATE 30,23: PRINT nr$;" “iLOCATE 29,25:PRIN >764 
T CHR$(253) 

2329 vie=vie-1:LOCATE 18+vie, 24:PEN L:FRINT nr$;CHR# (14 GH£ 
3) 

2330 IF vie:b THEN 2420 

2346 IF sc:246 THEN sc=5c-256:G60SUR 1144 
2354 CALL 89866: CALL 89B66 

2360 fin=6:G0T0 1366 

PATES RER EEE EEEEEEE 
2386 REM : 
2390 REM : 
2406 REM : L 
2410 REM sosssssessessesettess ss 

2420 fin=b:tps=REMAIN (2) 

2430 PRINT TR$:WINDOW #2,12,29,8,14:CLS #2 

2446 WINDOW #3,13,28,9,13:PAPER #3,2:CLS #3 

2456 PEN Z:LOCATE 15,19:PRINT"RUN ARBORTED" 

2466 LOCATE 13,12:PRINT'TRY AGAIN? (Y/N)° 

2476 FOR h=i TO 26: SOUND 1,46+(h#10),3,5:NEXT 

2489 IF sc:rec THEN rec=sc 

2490 q$=INKEYS$:1F q$="" THEN 2496 

2560 q$=UPPERS (q$):1F q$="Y" THEN ERASE ec:G60T0 48ù 
2516 IF q$="N" THEN 2530 

2529 GOTO 2490 

2536 END 

2549 REM 152999992202 snenneis ss: 

2554 REM : : 

2566 REM : temps -1 : 


29 


2576 REM : : ?YQ£ 
2586 REM sosssssesssseneeneeneenentit: FER< 
2594 Dl:tenps=temps-l:LOCATE 1,1:FRINT tré; CHR# (7) FRTÉ 
2600 IF INT(temps/2i=temps/2 THEN GOTO 2620 ELSE GOTO 2 UT 
619 

2610 FEN G:LOCATE 32+((temps-1)/2),24:PRINT CHR$(237):E :UK< 
I:RETURN 

2629 PEN O:LOCATE 32+(temps/2),24:PRINT CHR$ (276) BL 
26230 IF temps=0 THEN fin=i:finta=üivie=-1 + IM£ 
264% ET:RETURN FLN 
2690 REM srssssessseeeeseeceneennintet #1P£ 
26bÿ REM : AE 
2670 REM : transfert : S6R€ 
2686 REM : : FATÉ 
2694 REM sessssssesseeenenenenesenent 3DU< 
2706 SOUND 1,256,15,7,9,0,5 #HK< 
2716 FOR t=1 TO SHO:NEXT FL 
2720 cas=ec(xt,yt):CALL &98ÿ6 3BM< 
2730 x=16#(INT(cas/100)):y=394-((cas MOD 166)*16) HN 
2749 CALL 89800, (x/2)-4,(y/2)+7,2 >FFÉ 
2754 feu=ÿ:LOCATE 36,23:PRINT nr$s" “:FEN 1iLOCATE 29,2 :WQé 
3:PRINT CHR# (253) 

2764 sh=6:sb=0:sd=û: sq=û +AR€ 
2779 RETURN NTÉ 
2704 REM sessesseessessenseneseneneste #QUE 
2794 REM : : FCVE 
2806 REM : GAGNE ! DL 
2819 REM : : FVM< 
2820 REM sossssssessseeceseeneeneenet FYN£ 
2834 CALL &9B06, (608/2)-4,(354/2)-7,2:x=72:GOSUB 2856 WPF 
2849 CALL &9B90, (468/21-4, (354/2)-7,2:x=54:G0SUB 2856:6G :DQ* 
OTO 288ê 

2859 FOR h=1 TO x FXR< 
2869 FOKE &OC2E, 4:CALL 49B93:CALL ROBG3:POKE ROC2E, Zi CA ?DT< 
LL &9B03 

2879 NEXT: RETURN >JU< 
2884 CALL 89800, (18/21-4,(128/2)-7,2 LUE 
2896 FOR h=i TO 19 RTE 
2900 POKE #992E,B:CALL 49863: CALL &9B63:POKE 5992E,1:CA >XM< 
LL 29893 

2916 NEXT h FÂN€ 
2926 CALL &9E06, (96/2)-4, (96/2)-7,2 +BP< 
293% FOR h=1 TO 38 FRG£ 
2949 FOFE &992E,8:CALL 89843: CALL &9863:POKE &902E, 1: CA BR< 
LL 99863 

295% POKE &9C2E,8:CALL S#9B63:CALL &9BO3:POHE V9C2E, LCA ?GTE 
LL &9B03 

2966 NEXT ÿIUË 
2970 FOR t=1 TO 2990:NEXT ?NVÉ 
298% PRINT TR$:WINDOW #2,12,29,8,14:CL5 #2 iLH£ 
2990 WINDOW #3,13,28,9,13:PAPER #35,2:CLS #3 TX 
3690 PEN Z:LOCATE 15,169:PRINT"YOU HAVE WIN":G0TO 2468  >FD< 
3010 END ?KE< 
3029 REM sessssssesssesenensensetsins: ?QF< 
3036 REM : : >PG< 
3640 REM :  efface/dessin tableau : 3EHE 
3959 REM : : #RJ< 
3060 REM sssssssesssssenssseenenennet FVK£ 


30 


3979 FOR h=û TO 95 3PL< 
3686 PLOT 192-(h+2),86+h,0:DRAW 544-(Ch#2),254+#h ?GM€ 
3699 FLOT 191-Ch+#2),86+h:DRAW 543-(h#2),254+h FN 
3196 NEXT:RETURN 3VE< 
3119 ERASE ec:DIM ec (49,26) LF< 
3129 FOR h=1 TO 6:READ al 2WG< 
3139 a1$(h)=BIN$(ai,ii) DH 
3149 NEXT #PJE 
3159 FOR h=1 TO 6:FOR g=1 TO 11 FYÉE 
3169 b1$=MID#$(al$(h),g,1):bi=VAL(b14) >YL< 
3179 ax=(g#2)+(h#2)-3:by=(14+h)-q 2HM£ 
3186 IF bi=6 THEN :SPRIT,FN polax,by),89346:G0T0 3208 CNE 
3196 IF bi=1 THEN :SPRIT,FN polax,by),49900:G60T0 3269  :EP< 
3206 NEXT g,h 3PF< 
3219 READ trans:IF trans=6 THEN 3269 FNGX 
3226 FOR h=i TO trans ?UH< 
3230 READ a,b:LOCATE a,b:PEN 2:PRINT tr$setoil$ UT 
3249 READ casetec(a,b)=casetec (ati,b)=casetec(a,b+i)=ca àTÉ£ 
se:ec(ati,b+i)=case 
3259 NEXT h >VLE 
3264 RETURN FTM< 
76 REM sssssssss OO OO DCE FYNE 
3280 REM : : »XP< 
3299 REM : vide memoire clavier ! AE 
un REM : : >PGE 
84 (224 à du BOOO PACE ON RON FTHÉ 
7520 WHILE INKEY$<>"":HEND #GJ< 
3330 FOR t=1 TD SG: NEXT: RETURN 2PEE 
3340 REM sessssssssseeesesesssscesens #HL< 
3350 REM : ! PVHE 
2366 REM : data tableaux : 3CN£ 
3376 REM : ! 2XP< 
SI00 EM sessions nier >AQ< 
3396 DATA 63,32,2031,104,1890,264, 1,14, 14,2549 ARE 
3496 DATA 136,546,136,546, 136,546,9 :TH€ 
3416 DATA 19,12,315,14,14,315,18,16,315,12,9,315,16,11, 3LJ< 
315,26,13,315,18,8,315,22,10,315,26,12,319 
3426 DATA 34,170,1706,176,176,136,0 ?NE£ 
3436 DATA 126,984,292,146,73,33,7 ?CL£ 
3446 DATA 4,13,1217,16,7,1217,26,12,1217 >EM< 
3456 DATA 2,092, 658,584,548,530,3 2EN€ 
3466 DATA 6,12,2811,12,9,2811,22,14,2811 ?GP£ 
3479 DATA 455,211,25,92,209,451,4 WQ< 
3489 DATA 14,8,214,24,13,214,26,10,214,24,7,214 UR< 
3496 DATA 1924,1199,1365,85,1493,1041,8 PNTÉ 
3509 DATA 14,18, 1812, 16, 16, 1612,22, 14, 1012, 26, 12, 1012,3 HMS 
9,19,1912,12,9,1912,16,7,1912,29,5,1012 
3516 DATA 1,1389,780,96,99,3,3 3AKE 
39520 DATA 18, 6,2493,22,14,2483 til *DL£ 
3530 DATA 248,626,846,142,996,1022, ?PM 
3546 DATA 4,15,3209,6,12,3209,18 | 8:3209 FPN€ 
3596 DATA 34,16,1960,682,234,8,3 #RPE 
2560 DATA 16,7,614,36,19,614,24,7,614 #10é 
3576 DATA 9,1022,514,514,514,514,12 2MR£ 


358% DATA 12,13,1617,16,11,1617,26,9,1617,16,13,1617,26 > 


,11,1617,24,9,1617,16,15,1617,20,13,1617,24,11,1219,26, 
15, 1617,24,13,1617,28,11,1617 
3590 DATA 9,0,0,0,0,0,0 


3600 REM sissssesssesesseneseeeenens 2VÉ< 
3614 REM : : >UL£ 
3628 REM : clavier/ joystick | 2MM< 
3638 REM : : #WN£ 
3h44 REM sssssscsseseseseneneenseet: > 1P€ 
3656 WINDOH #1,1,49,25,25:PAPER #1,0:CLS #1 >UQK 
J6bD PEN 1:t$="":MHILE INKEY$<:"":WEND: PEN 2:A$=" C1 HR 
]1-JOYSTICK C21-PAVE NUMERIQUE" 

3679 WHILE T$="":B#$=LEFTS (AS, 1) ?KT< 
368% PEN 3:LOCATE 1,25:PRINT A$ PNU< 
3694 T$=INÉEY#: A$=RIGHTS (A$, LEN (AS) -1)+B$:HEND 2MV£ 
37006 IF T$="1" THEN GOTO 3734 #RL£ 
3710 IF T$="2" THEN GOTO 3749 ?VM£ 
3729 T$="":G0T0 3668 UNE 
3736 ga=74:da=75:ha=72:ba=73: fe=76:60T0 476 2NP< 
3746 qa=20:da=4:ha=1i:ba=14: fe=12:G0T0 3804 >DQ< 
3700 REN fissesnitsninnssenseendonne ?BR€ 
3766 REM : : FATÉ 
3778 REM : pave numerique : 2MU< 
3780 REM : ‘ : ?CVé 


790 REM srssfersesseesesnnnsnensense >FW< 
3806 MODE 1:INK 1,24: INK 2,26,60:INK 3,10: INK 9,0: BORDER >UM< 
19 
3816 ORIGIN -29,0 >YN< 
3826 WINDOW #5,1,40,1,3:PEN #5,3:PAPER #5,1:CLS #5:LOCA >LP< 
TE #5,14,2:PRINT #5, "PAVE NUMERIQUE" :PLOT 29,348: DRAWR 
639,9,1:PLOT 29,346: DRAWR 639,4,1:PLOT 29,342: DRAWR 639 
,Ÿ,1:PLOT 29,336: DRAWR 639,9, 1 
3836 ORIGIN 6,9 >XQ 
3840 MOVE 346,150: DRAWR 59,9,3:DRAWR 4,-20,3:DRAWR 39,3 >JR< 
0,3: DRAWR -39,30,3:DRAWR 9,-20,3:DRAWR -50,0,3:DRAHR 0, 
-20,3 
3859 MOVE 440,146:DRAWR 34,0,3:DRANR 4,4,3:DRAWR 4,120,3 >QT< 
:DRAWR -4,4,3:DRAWR -34,0,3:DRAWR -4,-4,3:DRAR 6,-28,3 
:DRAHR 2,-4,3 
3860 DRAWR 6,6,3:DRAUR 26,0,3:DRAMR 4,-6,3:MOVER -4,6:D >HUX 
RAUR 6,26,3:DRAWR 4,4,3:MOVER -4,-4:DRAWR -26, 0, 3: DRAWR 
-4,4,3:MOVER 4,-4:DRAMR 9,-26,3 
3876 MOVE 330,149: DRAWR 0,-50,3:DRAWR 20,0,3:DRAWR -39, >LV< 
—30,3:DRAWR -39,30,3:DRAWR 29,0,3:DRAWR 9,50,3:DRAWR 29 
10,3 
3880 MOVE 344,16: DRANR 34,6,3:DRAWR 4,4,3:DRAWR 0,39,3: :LW4 
DRAWR -4,4,3:DRAWR -34,6,3:DRAWR -4,-4,3:DRAWR 6, -28,3: 
DRAWR 2,-4,3 
3896 DRAMR 6,6,3:DRAWR 26,6,3:DRAWR 4,-6,3:MOVER -4,6:D >LX< 
RAUR 9,26,3:DRAWR 4,4,3:MOVER -4,-4:DRAWR -26,6,3:DRAWR 
-4,4,3:MOVER 4,-4:DRAMR 0,-26,3 
3900 MOVE 360,156:DRAWR -50,0,3:DRAWR 6,-20,3:DRAWR -39 >BN< 
530,3: DRAWR 30,30,3:DRAWR 9,-20,3:DRAWR 50,0,3: DRAWR 9, 
-20,3 
3719 MOVE 164,140:DRAWR 34,9,3:DRAWR 4,4,3:DRAWR 9,30,3 >QP< 
:DRAWR -4,4,3:DRAWR -34,9,3:DRAWR -4,-4,3:DRAWR 6,-28,3 
:DRARR 2,-4,3 
3926 DRAWR 6,6,3:DRAUR 26,0,3:DRAWR 4,-6,3:MOVER -4,6:D >EQ< 
RAWR 9,26,3:DRAWR 4,4,3:MOVER -4,-4:DRAWR -26,0,3: DRAWR 
—4,4,3:MOVER 4,-4:DRAUR 9,-26,3 

3936 MOVE 310,180: DRAWR 9,50,3:DRAUR -20,0,3:DRAWR 39,3 >JR< 
| 9,3: DRAWR 30,-30,3: DRAWR -26,6,3:DRAWR 9,-50,3:DRAWR -2 


F2 a SA PT PL ONE LR Ce ET EE, AU 

SNS RER CE RER E ENT OTE À NS La 
A 7 
7 
9,9,5 


3940 MOVE 304,272: DRAUR 34,0,3:DRAMR 4,4,3:DRANR 0,30,3 DWT< 
:DRAMR -4,4,3:DRAWR -34,0,3:DRAUR -4,-4,3:DRAUR 0, -28,3 

:DRAWR 2,-4,3 

3956 DRAUR 6,6,3:DRAUR 26,0,3:DRAUR 4,-6,3:MOVER -4,6:D >HU< 
RAMR 9,26, 3: DRAWR 4,4,3:MOVER -4,-4:DRAWR -26,0, 3: DRAMR 
-4,4,3:MOVER 4,-4:DRAUR 0,-26,3 

3960 TAG:PLOT 452,168,2:PRINT "é";:MOVE 314,3B:FRINT "2 >BV< 
Ms: MOVE 174,168: PRINT "43: MOVE 314, 390: PRINT"B"3; : PLOT 
314,168: PRINT "5"; : TAGOFF 

3970 CALL 4EB18:607T0 47% JW@ 


LISTING 3 


19 A=49000:F=8O9CDF:L=100:MHILE A£=F:FOR A=A TO A+15:READ C$:Kk= 
VAL CR 4CS) :5=6+K+65536#(S+K232767): IF A£=F THEN POKE A,K 

20 NEXT:READ D$:T=VAL ("4 "4D$): IF T£>S THEN PRINT CHR$(7); "Erre 
ur ligne";L:END ELSE L=L+5:WEND 

199 DATA 06,00,09, 19,66, 00,00, 09,00, 06,00, 70,68,00,00,09,0168 
195 DATA 04,06,19,96,1E,80,00, 06,00, 00,61, 2D,9F,68,0ÿ,06,03B1 
119 DATA 06,10,87,2D,9F, 1E,86,04,06, 61,0F,4B,0F,0F,68,09,06b3 
115 DATA 19,87,3C,F6,87,0F,1E,86,61,1E,C3,4B,78,E1,0F, 68, 0CB7 
126 DATA F0,E1,0F,48,0F,1E,F4,F0,61,0F,0F,2D,0F,0F,0F,68, 1230 
125 DATA 10,87,0F,2D,0F,0F, 1E,80,69,61,0F,2D,0F,0F, 68,00, 14E2 
139 DATA 06,10,87,1E,0F, 1E,80,00,00,06,61,1E,6F, 68,00, 06, 173A 
135 DATA 09,00,19,87,96, 80,06, 09,00, 00,00, 70,E0, 00,00, 00, 1A37 
149 DATA 60,00,00,00,00, 09,00, 06, 00, 00,00, 09,0, 00,00, 09, 1A37 
145 DATA 00,00,00,00,00, 00,00, 00,00, 00, 00,00,00,00,00, 00, 1A37 
159 DATA 069,00,08,00,00, 90,00, 00,00, 00,00,00,06, 00,00, 00, 1A37 
155 DATA 00,00,00,00,00,00,06,00,00,09,00,00,00,00,00, 00, 1A37 
166 DATA 00,00,00,06,00,00, 00,00, 00,00, 00, 00,00, 00, 00, 00, 1A37 
165 DATA 69,00,00,00,00, 00,00, 00, 09,00, 00,00, 00,00, 00, 00, 1A37 
170 DATA 06,00,00,00,00,00,00,00,06,00,00,09, 00,00, 00,00, 1AS7 
173 DATA 09,06,00,06,00,00,00,00, 00,00, 00,00, 00,00, 09,00, 1A37 
189 DATA 09,00,00,00,00, 00,00, 00,00,06,00, 00,00, 00,00, 00, 1A37 
185 DATA 09,00,00,00,00, 06,00, 00,00, 00,00,00,00, 006,09, 00, 1A37 
190 DATA 84,00,06,00,0û, 09,00, 09,68, 00,00,00,06,06,00, 09, 1B1F 
195 DATA 1E,80,09,00,00,00,00,00,0F,B,00,00, 06,00, 00,00, 1C34 
206 DATA 0F,1E,80,00,00,00, 00, 00,0F,0F, 68, 06,00,00,00, 0ù, 1Dé7 
205 DATA 87,6F,1E,80,00,00,00,00,7B,E1,0F,68,00,00, 00,00, 206B 
219 DATA 9F,1E,F9,F0,00,00,04,00,0F,0F,0F,bB, 00, 00,00, 06, 230D 
215 DATA 6F,0F,1E,80,00, 00,00, 00, 0F,0F,68, 00,00, 00,09, 00, 244F 
224 DATA 0F,1E,89,90,00,00,00,006,0F, 6B,00,00,00,00,00,00,2573 
225 DATA 96,80,00,06,09,00,06,00,E0,00,00,00, 00,00, 00, 00, 2789 
230 DATA 06,00,00,00,04, 00,00, 00,00, 00,08,00,00, 00,00, 00,2769 
235 DATA 09,06,00,00,00,00, 00, 10,00,09,00,00,06,00,09,71,27EA 
249 DATA 06,00,00,00,00,00,10,F7,006,06,00,09,00,09,71,FF,2Ab1 
245 DATA 00,00,00,00,09,10,F7,FF,00,00,00,00,00,71,FF,FF,2ED6 
259 DATA 00,06,00,006,10,F7,FF,FF,08,00,00,00,71,FF,FF,FF,3549 
255 DATA 64,00,00,00,F7,FF,FF,FF,00,00,00,00,71,FF,FF,FF, 3CAB D> 
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26 DATA 09,96,09,06,10,F7,FF,FF, 00,06, 00,06,00,71,FF,FF,421F 
265 DATA 06,00,06,00,60,16,F7,FF,00,00,00,00,00,00,71,FF,4595 
276 DATA 06,66,00,00,00,06, 18,77, 00,66, 00,06, 4ù,00, 60,71, 4760 
275 DATA 69,00,00,60, 09,00, 00, 00, 09,00, 00,00, 04,06, 00,004, 470D 
280 DATA 84,00,06,00, 04,00, 09,00, E8, 40, 06,00, 08,00, 00,00, 4875 
285 DATA FE,86,00,00, 00,06, 00, 00,FF,E8, 04,06, 04, 06, 09, 05, 4BDA 
299 DATA FF,FE,80,00,00,009,00,00,FF,FF,E8,00,09,090,00,09,513D 
295 DATA FF,FF,FE,86,06,06,00,00,FF,FF,FF,EB, 64,06, 04, 00, 589E 
366 DATA FF,FF,FF,FE,00,60,00,06,FF,FF,FF,EB, 06,06, 00,00, 6Q7E 
365 DATA FF,FF,FE, 80,00,00, 00, 00,FF,FF,EB, 00, 00,00, 09, 0ù, b6Eù 
314 DATA FF,FE,80,06,00, 06,00, 06,FF,E8,00,00,60, 06,00, 06, 4B44 
315 DATA FE,86,00,00,60,06,06,06,EB, 06,60, 00,06, 06, 06, 69, &DAA 
326 DATA 00,66,06, 00,00, 00,00, 00, 00, ü6, 06,06, 6,06, 65, 6%, 6DA 
325 DATA 09,00,06,40, 00,00, 00, 40,00, 00, 00,06, 06,46, 46, G9, 6DAA 
330 DATA 66,66,00,00, 06,00, 09,00, 00,00, 00,06, 69, 00,06, 09, GDAA 
335 DATA 09,00,00,00,009,00,06, 00,00, 09,00, 00, 00,06, 06,0, 6DAA 
344 DATA 06,06,06, 16,80, 00,00, 06,00, 00, 09, 71,E8, 06,60, 60, 6F93 
345 DATA 09,60,10,F7,FE,86,00,06,60,00,71,FF,FF,E8,00, 06, 756F 
399 DATA 69,16,F7,FF,FF,FE,86,00,00,71,FF,FF,FF,FF,ES, 00,7F47 
355 DATA 16,F7,FF,FF,FF,FF,FE,80,71,FF,FF,FF,FF,FF,FF,E8, 8DIB 
369 DATA F7,FF,FF,FF,FF,FF,FFSFE, 7I,FF,FF,FFSFF,FF,FF,E8, 9C5D 
365 DATA 19,F7,FF,FF,FF,FF,FE,B6,06,71,FF,FF,FF,FF,EB, 06, ABS3 
374 DATA 04,10,F7,FF,FF,FE, 89,00,06,00,71,FF,FF,EB, 66,00, BO6D 
375 DATA 66,06,16,F7,FE,84,00,00,00, 00, 00,71,E8,00, 46,09, B3EE 
389 DATA 69,06,00,00,00, 04,66, 06,00, 86,00, 06,06, 00,00, 00, B46B 
385 DATA 00,86,06,00,00,06,00, 00,00, 67,08, 60, 40,00, 09, 04, 584 
394 DATA 69,87,0E,00,06, 00,00, 06,00,87,0F, 06,06, 06,06, 60, B6B3 
395 DATA 06,87,0F,0E,00,06,06,00,06,67,0F,0F,08,66, 64, 00, BBG4 
400 DATA 69,61,0F,0F,1E,00,00,00,06,10,87,0F, 1E, 00,06, 00, B965 
445 DATA 06,00, 61,0F, 1E,06,06,06, 04,00, 19,87, 1E,06, 09,06, BAAB 
419 DATA 09,00,06, 61, 1E, 00, 00,09, 00,09, 00, 10,96, 0,06, dù, BBCD 
415 DATA 90,66,00,00, 74,064, 00,06, 00,00, 00,06, 16,00, 00, 04, BC4D 
420 DATA 60,00,40,066, 00, 06,00, 00,06, 60, 00,04, 66,00, 06, 66, BC4D 
425 DATA 46,16,00,00,00,06, 00,00, 06, 56,06,06,06,060, 00,00, BCBS 
430 DATA 61,BE,00,00, 00,00, 00,00,57,5E, 00,00, 0û, 00,66, 61, BE28 
435 DATA AF,BE,60,00,06,00,00,57,5F,5E, 06, 00,00,00,01,AF,C159 
449 DATA AF,BE,66,00,00,00,57,9F,5F, 68,04, 06,00,00, AF, AF, CSA 
445 DATA BE,80,00,00,00,06,5F,9F, 08, 46,00, 06, 64,00, AF, RE, C972 
454 DATA 84,46,06, 60,00, 00,5F, 68, 00, 00, 64,40, 06,0û,BE, 8, CBF7 
455 DATA 40,00,00,00,00,06, 68,06, 00,06, 00,00, 06,06, 80, 09, CCDF 
4ëb DATA 09,04,00,00,00,00, 00,00, 09,00, 00,06, 60,00, 00, 06, CCDF 
485 DATA 60,06,00,00,00, 06, 09,06, 09,06, 04,00, 66, 06, 09,06, CCDF 
476 DATA 09,00,00,00, 06,06, 00,00, 06, 06,00, 00, 00,06, 06,06, CCDF 
475 DATA 60,06,00,00,60,00,06,00,00, 09,09, 06, 06,06, 69, 69, CCDF 
496 DATA 09,06,00,06,09, 06, 00,00, 60,00, 06, 00,06, 69, 06, 60, CCDF 
485 DATA 60,09,00,00,00,06,00,06, 00,00, 00,00, 09,06, 00, 00, CCDF 
496 DATA 00,60,00,60,06, 00, 00,00, 00,06, 00,00, 60, 06,60, 6, CCDF 
495 DATA 66,66,60,00,006,06, 00,00, 00,06, 00, 00,60, 006, 00,00, CCDF 
599 DATA 09,60,009, 16,80, 00, 60,06, 06, 06,00, 71,E8, 06,00, 09, CECB 
999 DATA 66,00, 19,F7,FE,86,06,06,00,06,71,FF,FF,EB, 0ÿ, 66, D4A4 
919 DATA 69,19,F7,FF,FF,FE,86,06,00,71,FF,FF,FF,FF,EB, 04, DE7C 
919 DATA 19,F7,FF,FF,FF,FF,FE,86,71,FF,FF,FF,FF,FF,FF,EB, EC50 
924 DATA F7,FF,FF,FF,FF,FF,FF,FE, 71,FF,FF,FF,FF,FF,FF,EB,7B92 
929 DATA 16,F7,FF,FF,FF,FF,FE,80,00,71,FF,FF,FF,FF,EB, 09,976 
39 DATA 90,16,F7,FF,FF,FE,86,06,06,00,71,FF,FF,E8,69,00,0F42 
923 DATA 06,00,10,F7,FE, 86,04, 06, 00,00, 00, 71,E8,06,66, 00, 1328 
944 DATA 04,90,00,00,08, 06, 00,00, 00,00, 06,00, 00, 00,00, 06, 1324 
945 DATA 00,66,06,06,60,00, 06,06, 06, 00, 00, 09,06, 06, 06, 69, 1320 
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59û DATA 06,00, 06,00, 09, 00, 00, 06, 00, 9, 00, 00,00, 09, 00, 09, 1320 
555 DATA 60,00, 06,00, 00, 00, 00, 06, 00, 00, 00, 0,00, 00, 00, 09, 1324 
560 DATA 00,00, 00,00, 00, 00, 08, 05, 00, 06,00, 0,00, 00, 06, 09, 1329 
565 DATA 06,00, 06,06, 00, 00, 00, 10, 00,00, 00, 00,00, 00,00, 70, 1340 
570 DATA 00,00, 00,00, 09, 00, 19, 96,00, 09,00, 00,06, 00, 61, 2D, 1404 
575 DATA 00,00,00,00, 00, 10,87, 2D, 0,00, 00, 00, 00, 61,0F,4B, 1453 
586 DATA 00,90, 00,00, 10,87,3C, F0, 00, 00, 00,00, 41, 1E,C3, 4B, 1943 
585 DATA 60,00, 00,00,F0,E1,0F, 4B, 00, 00,00, 00, 61 ,0F,0F, 2D, 1C7A 
590 DATA 00,00, 00,00, 10,87,0F, 2D, 00, 00, 0,00, 00, 61, 0F, 2D, 1DEA 
595 DATA 00,00, 00,00, 00, 19,87, 1E, 00,00, 00,00, 06,00, 61, 1E, 1FIE 
60 DATA 00,00, 06,00, 00, 06, 10, 87,00, 00, 00,00, 00, 09, 0, 70, 2025 
605 DATA 06,00, 06,00, 00, 00,00, 09, 00, D, 06,00, 06, D, 09, 09, 2025 
b1ô DATA 60,00, 06,00, 06, Où, 00, 00, 0, DO, 00, 09, 00,00, 09, 9, 2025 
615 DATA 06,60,00,00, 00, 00, 06, 00, 00, 0, 00, Gù, 00, 00, 06, 06, 2075 
620 DATA 60,00, 06,00, 00, 00, 00, 09, 00, 09,00, 00, 00, 00, 09, 00, 2025 
625 DATA 06,00, 00, 00,00, 00, 00, 00, à, 00, 00, 00, 09, 00, 00, 0, 2025 
430 DATA 06,00, 06,00, 09, 00, 0, 00, 00, 09,00, 00,00, 00, DO, 00, 2025 
435 DATA 06,00, 04,00, 00, 00,00, 09, 00, 00, 09,00, 09,00, 00, 09, 2025 
&Ad DATA 06,00, 00,00, 09, Dù, 00, 00, dû, 00, 00, 09,00, 00, 00, 00, 2425 
645 DATA 06,00, 09,00, 00, 00,00, DO, 00,0, 00,00, 09, 00, 00, 09, 2025 
450 DATA 06,00, 06,00, 09, 00, 00, DA, QD, 09,00, 0,00, 00, 00, 00, 2925 
455 DATA 00, 06,00, 00, 06, 00, 09, 00, 40, 00, 00, 09,00, 09, 00, 00, 2025 
be DATA 01,09,97,21,14,97,C3,D1,BC, 0€, 97,03, 18,97, 53, 56, 269€ 
&eS DATA 52,49,D4,00, 14,97, 09,97, 3E,01,CD,9F,BE, DD, SE, 06, 2CF7 
&7à DATA DD,56,01,DD, 4€, 92, DD, b6,93, CD, 50, 97,D5, DD, 6E, 02, 3494 
675 DATA DD,66,03,11,56,00, 19,01, CD, 56,97, C9, DD, 6E, 02, DD, 3BCC 
680 DATA 66,0%, 11,40, 06, 19, D1,CD, 50,97,C9, 06,00, 09,06, 40, 494D 
685 DATA 66,08,05,06, 07, 1A, Bb, 77,13,23,10,F9, 1A, Bb, 77,13, 450D 
490 DATA DS,11,F9,07,19,D1,C1, 10,E9,00, 00, 00,00, C9,00, 00, 4AbG 
495 DATA 60,09, 00, 00, 00,00, 00, 00, 00,00, 6, 00,00, 06, 00, 00, 4abû 
709 DATA 00,00,00,00, 00, Où, 09,00, 09, 06, 00, 09,00, 00,00, 09, 4Abû 
795 DATA 60,00, 06,00, 00, 00, 00, 00, d0, 00, 00, 09, 00, 00, 04, 00, 4AGÈ 
719 DATA 00,00, 00,00, 00, 00, 00, 00, 0, 09,00, 09,00, 00, 00, 0ù, 4A&D 
715 DATA 00,00, 00,00, 00, 00, 06, 00, G0, 00, 00, 00,00, 00, 00, 09, AAbû 
726 DATA 06,00, 00,00, 06, 0, 40, 00, 00, 06,00, 09,00, 00, 00, 00, 4A6G 
725 DATA 66,00, 06,00, 00,00, 00, 00, 0, 06, 00, 0,00, 00, 06, ù, 4A49 
720 DATA 0,00, 00, 00, 09, 0, 00, 00, 00, 09,00, 0,00, 09, 06, 00, 4A4û 
125 DATA 00,06, 00,00, 00, 0ù, 09, 00, 0,00, 00, 09, 00, 09, 00, 00, Ab 
749 DATA C3,F0,98,C3, 20,99, C3, DB, 99, 06,00, 00,00, 09, 00, 00, 5068 
745 DATA 00,37,D0,2F,FC,0F,FO,0F, FO, 6D,F0,37,FC,DF,FF, 06, 58C2 
750 DATA 00,00, 00,00, 00, 0, 40, 00, 00, 00,00, 05,00, 00,06, 00, SBC2 
755 DATA 06,00, 00,00, 3A, 0D, 98, A1,57,79,2F,5F, DD, 21, 11,98, 5047 
760 DATA 66,07,05,05,E5, 06,08, 3€, 04,8, 20,02, DD, 23,7E, A3, 631E 
765 DATA 4F,7A,DD,CE, 06,06, 36, 06, DD,CE, 60, dé, 18,08, ZE, 09, 67D7 
775 DATA DD, CB, 06,06, 30,02, E1,77,CB,0A,CB, 0B, 38,09, CP, A, 6DAO 
775 DATA CB, 0A, CE, OA, CB, OA, 23, 10, CE, DD, 23,E1, 7C, Ch, 08,67, 7482 
780 DATA 34,08, 70, Dé, 49, 87, 7D, C6, 50, 6F, 30,91,24,D1,C1, 10, 7ADF 
785 DATA B1,C9,00,00, 00,00, 09, 00, 22,0F,98, 11, 1F,98,06,07, 7DF7 
796 DATA ES,0€,03,7E, 12,23, 13, 0D, 20,F9,E1,7C,C6,08, 47, 30,839B 
795 DATA 98, 7C,Dé, 49,67, 7D, Cb, 50,6F,30,01,24,10,E2,C9,00, B9E1 
800 DATA 06,00, 00,00, 00,00, 11, 1F,98,06,07,E5,0€,03, 18,77, BCOD 
865 DATA 23,13,0D,20,F9,E1, 70, C6, 08, 67,30, 0B, 7C,Dé, 40,67, 922F 
814 DATA 7D,C6,50,6F, 30,01, 24, 19,E2,C9, 00,00, 09,00, 00,00, 9641 
815 DATA 06,00, DD, 7E, 00, CB, 47, 28,02, 06,F0, CB, 4F, 28, 04, 78, 9892 
820 DATA F6,0F,47,78, 32,00, 98, DD, 6€, 02, DD, 66,03, DD, 5E, 04, A1FF 
825 DATA DD,56,05,ED, 53,08, 98, 22, 49,98, CD, 1D, BC,E5, C5, CD, A9FA 

36 DATA 98,98, C1,E1,CD, 34,96, C9, 00,00, 00,00, 00, 3E,01, 09, AFED 
835 DATA ED,4B,09,98,ED,58, 08, 98,F5,CB, 67, 26,69, 3E,09,CD, 695 


840 DATA C7,99,3E, 00, 28,02, 3E,FF,32,0€,98, 3€, 01, CD, C7, 99, BCDE 
845 DATA 29, dô,F1,CB,5F,F5, 28,09, 21,37, 01,CD,CF,99, 28,01, C2FC 
854 DATA 13,23E,92,CD,C7,99, 20, 06,F1,CB,4F,F5, 28,06, 79, FE, CA47 
855 DATA 07,28,01,0B,2E,08, CD, C7, 99, 20,06,F1,CB,57,F5, 28, DÔ4E 
86b DATA 05,7B,82, 28, 01, 1B, 3,09, CD, C7, 99, 20,07,F1,CB, 47,D65é 
865 DATA 28,09, 18,01,F1,79,FE,C7, 28,01, 03, 40,69, 22,09, 98, DBE7 
874 DATA ED,53,08, 98, CD, 1D, BC, CS,E5, 24,0F,98, CD, 19, BD, CD,E3FB 
875 DATA Cb,98,E1,E5,CD, 98,98, E1,C1, CD, 34,98, C9, 00, 00, 06, ED29 
880 DATA 00, 09,00, 09, 00, 00,00, C5, CD, LE, BB,C1,C9,00, 00, 7C,F191 
885 DATA 92,06, 7D,93,C9,00, 00, 00, 2A, 6F, 98, C3, Ch, 98, 40, 06, F7AE 
894 DATA 09, 09,00, 00, 09, 00, 00, 00, 09, 00, 0, QD, Di, 00, Où, 00, F7AE 
895 DATA 06, 00,00, 00, 09, 00,00, 00, 00, 06, 00, 00, Di, Où, Qù, 0, F7AE 
990 DATA 06,09,00, 00, 0, 00, 00, 00, 00,00. 00, db, 09, Où, 0, 09, F7AE 
965 DATA 06,00, 00, 00, 00,00, 00, 00, 00,00, 60, 00, 00, 00, 0, 06, F7AE 
919 DATA 00, 09,00, 00, 00, 00, 00, 00, 00, 0, 09,00, 06, 0, db, O0, F7BE 
915 DATA 09, 06,00, 09, 00, 06, 00, 00, DA, 00, 00,00, 00, 00, 06, Où, F7AE 
920 DATA 66, 00,00, 00, 00, 00, 06, 00, 09, 00, 09,00, 00, 00, 09, DO, F7AE 
925 DATA 60, 09,00, 00,00, 6, 00, 00, 09,00, 00,00, 06, 06, D, 00, F7AE 
930 DATA 09,00,00, 00, dù, 00, 00, 00, 00,0, 00, 00, 06,00, 0, 00, F7AE 
935 DATA 60,06,00, 06,00, 00, 9, 00, 0G, 00, 00, dd, 00, 00, 09, 00, F7AE 
940 DATA 09,06,00, 00, D, 00, 00, 0, 09, 00, 00, 00,00, 0, 00, 00, F7AE 
945 DATA 46, 09,00, 00, 00, 00, 06, 00, Da, 00, 00, 00, 09, 00, 00, 09, F7AE 
950 DATA 00, 00,00, 0,00, dù, 00, 00, 06, 00, 09,00, DO, 0, 00, DD, F7AE 
955 DATA 60, 00,00, 00, 00, 00, 00, 00, 09, 00, 09,00, 09,00, 00, 00, F7AE 
96û DATA 06, 00,00,00, 00, 09, 0, 0, 09, 00, 00, 00, DO, Où, 0, 00, F7AE 
965 DATA 06, 09,00, 00,00, 0,00, 00, 06, 00, 0@, 00, 09,00, 06, 04, F7AE 
97à DATA 00, 06,00, 00, 0ù, 09, Où, 00, 00, 0%, 00, 0, 00, 00, 00, 09, F7AE 
975 DATA 69,00,00, 00, 00, 00, 00, 00, 09,08, 00, 00, 00, 00, 00, 06, FTAE 
98û DATA C3,F0,98,C3, 2D, 90, C3, DE, 9C, 00, 00,00, 00, 20, 00, 00, FDBF 


Cet ouvrage réalisé 
dans un style très 


985 DATA 00,0F,FF,35,77,FF,D7,DD,D7,FF,D7,DD, DC, FF, F0, 00, 0881 
998 DATA 96, 00,00, 00,00, 00, 00, 00, 04, 00, 0, 00, 00, 00,00, DD, 0881 

995 DATA 06,00,00, 00, 3A, 0D, 98, A1, 57, 79,2F,5F,DD, 21, 11,98, DOC 

1900 DATA 06, 07,05, D5,E5, 6,08, 3€, 04, BB, 26,02, DD, 23, 7E, A3, 12E3 
1995 DATA 4F,7A, DD, CB, 00, 06, 34, 06, DD, CB, 00,06, 18,08, 3E,00, 179C 
1919 DATA DD, CB, 06, dé, 34, 02,B1,77,CB, A, CB, 0B, 58,09, CB, 0A, 1D65 
1915 DATA CE, 0A, CB, 0, CB, OA, 23, 10,CE, DD, 23,E1, 7C,C,08, 67, 2477 
1926 DATA 36,08, 7C, Dé, 49, 67, 7D, Ch, 50, 6F, 30, 01,24, D1,C1, 19, 2AA4 
1925 DATA B1,C9,00, 00, 00,00, 00,00, 22, 0F,9B, 11, 1F,98, 06, 07, 2DCZ 
1939 DATA ES,0€,03,7E, 12,23, 13,00, 20,F9,E1,7C, Cb,08, 67, 30, 3366 
1835 DATA 0E,7C, Dé, 40,67, 7D,Cb,50,6F, 30,01, 24, 10,2, C9, 06, 397C 
1949 DATA 00, 06,00, 00, 0û,00, 11,1F,9B,06,07,E5, 0€, 03, 14,77, 3BDB 
1945 DATA 23,13,0D,20,F9,E1,7C,Cb,08,67,30,0B, 7C, Dé, 46,67, 41FD 
1956 DATA 7D,C4,50, 6F, 30,01, 24, 10,E2, C9, 00, 04, 09, 00, 09, 00, 460F 
1955 DATA 06,06, DD, 7E,00, CB, 47, 28,02, 06, F0, CB, 4F, 28,04, 78, 4E44 
1969 DATA Fé,0F,47, 78,32, 00,98, DD, 4E, 02, DD, 66, 03, DD, 5€, 04, 5100 
1965 DATA DD,56,95,ED,53, 08,98, 22, 09,98, CD, 1D,EC,ES,C5,CD, 5901 
1978 DATA 98,98,C1,E1,CD, 34,98, C9, 06, 00, 09, 00, ù, 2E, 01,00, 5F4A 
1975 DATA ED,48,09,98,ED,5E, 0B,9B,F5, CB, 67, 20,09, 3€, 09, CD, b678 
1980 DATA C7,9C,3E, 00, 28,02,3E,FF, 32, GE, 98, 3E, 01, CD, C7, 90, 6CCA 
1985 DATA 29,06,F1,CB,5F,F5,28,09, 21, 37,01, CD, CF, 9C, 28,01, 72EB 
1990 DATA 13,3€,02,CD,C7,90, 26506, F1, CE, 4F,F5, 28, 06, 79,FE, 7419 
1995 DATA 97,28,01,0B,2E, 08, CD, C7, 90, 20, 06,F1, CE, 57,F5, 28, 8040 
110 DATA 45,78, 82, 28,01, 15, 3E, 00, CD, C7, 9C, 2, 47,F1,CB, 47, B64E 
1165 DATA 28,09, 18, 01,F1,79,FE, C7, 28, 01,03, 60,49, 22, 09,98, BB82 
1119 DATA ED,53,08,98,CD, 10, C,C5,E5, 2A,0F, 98, CD, 19, BD, CD, 93FC 
1115 DATA Cé,98,E1,E5,CD,98,98,E1,C1, CD, 34,98, C9, 00, 09,00, 7D2A 
1126 DATA 00,00, 00, 06,00, 00, 00,C5, CD, LE, BE, C1,C9, 00, 05, 7, A19B 
1125 DATA 92,00, 7D,93,09, 00,00, 09, 2A,0F,9B,C3, C6, 98, 00,00, A7BE@ 


De nombreux 
programmes de jeux 
et utilitaires, des 
conseils pratiques, 
trucs et astuces, 
schémas, des 4 


clair apprendra aux 
amateurs comme aux 
professionnels à 
résoudre les mille et 
un problèmes qu'ils 
ne manqueront pas 
de rencontrer lors de premiers n° de CPC 
la mise en œuvre de réunis en un seul 
leur imprimante. Ÿ livre. 


Ci-joint un chèque libellé à l'ordre de : BRETAGNE EDIT' PRESSE. Retournez le(s) bulletin(s) ou une photocopie à : BRETAGNE EDIT 
PRESSE - La Haie de Pan — 35170 BRUZ. 
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Sous le charmant nom de CREA-MEN se 


cache un puissant générateur de menus 
qui vous évitera de perdre du temps à 


chercher le LOADER de vos nombreux pro- 
grammes pour le lancer ensuite. Vous 


n'aurez qu’à charger le MENU que génère 


CREA-MEN et vous aurez le choix de lan- 
cer tel ou tel programme... 


Tapez d’abord le listing 1 et sauvegardez-le sous le nom 
de ‘’CREA-MEN.BAS"" ; initialisez le CPC et tapez ensuite 
le listing 2. Sauvez-le sous le nom de ‘’CREA-MEN.FIN". 
Vous pourrez désormais égayer vos disquettes avec un 
menu efficace mais court (2 Ko). 


Mode d'emploi 


CREA-MEN vous donne la possibilité de choisir le lecteur 
sur lequel sera généré le menu. Le numéro de la disquette 
est facultatif (tout le monde ne classe pas ses disques de 
la même façon...). En revanche, il est nécessaire d'indi- 
quer la face concernée (A ou B). Ensuite vient la saisie 
du nom des programmes (maximum 25 caractères) et de 
chaque LOADER (maxi 12 caractères, y compris le suf- 
fixe. Attention : un point est obligatoire!). Lorsque vous 


CREA-MEN 
Générateur. 
de menus! 


Gaëtan BOURRÉE 


MBLEnu : BRÈ 


26K free 


CAR le 
x CPC” 


RGENE 


XXXRXXXAAAZAAZAZXXX 


aurez rentré tous les noms (9 maximum, des vérifications 
sont effectuées), vient alors le moment de sauver ou non 
le menu. Vous avez le choix entre le nom type 
(MENU.BAS""}) et un autre nom que vous pouvez défi- 
nir. Lorsque le menu est sauvé, votre disquette contient 
un autre fichier. 

Le programme CREA-MEN ne contenant pas de routine 
d'interception d'erreurs, vérifiez que votre disquette est 
correctement formatée, qu'il reste de la place et que les 
taquets de protection permettent l'enregistrement. 
Un moment! me direz-vous : si ma disquette contient plus 
de 9 programmes ? 

Je vous répondrais alors que l'option ‘changement de 
nom’’ du menu permet d’'enchaîner plusieurs menus. Je 
m'explique : admettons que vous ayez sur la même dis- 
quette 5 programmes Assembleur, 3 petits jeux BASIC, 
2 logiciels du commerce, divers utilitaires et qu'il reste plus 
de 8 Ko. Rentrez à partir de CREA-MEN les noms de fichier 
suivants : ‘’Programmes Assembleur’’. ‘Jeux BASIC’, 
‘Logiciels Commerciaux"" et ‘’Utilitaires’” avec les noms 
de loader suivants : ‘’ASS.M””, ‘’BAS.M”", ‘"JEUX.M'' et 
“‘UTIL.M"". Sauvez le menu sous le nom type. Continuez 
l'exécution et là, pour chaque sorte de programmes, com- 
posez un menu approprié que vous sauverez sous le nom 
‘’ASS.M"" s'il s'agit des programmes Assembleur, 
‘’BAS.M"" s'il s’agit des jeux BASIC etc. etc. 


PS. - Petite astuce : les caractères ayant été redéfinis, 
vous risquez d’avoir des problèmes d'affichage lors de 
l'exécution de vos programmes : c'est pourquoi il est 
recommandé d'insérer la commande ‘’CALL &BB4E'"'dans 
vos loaders (cela remet les encres, les fenêtres, les carac- 
tères et le mode dans leur définition normale (comme lors 
de l'initialisation). 


19 SSSSSSSSSÉSSSSSSSSSSSSSSSSSSSSSESE 
29 ‘ = LOADER DU GENERATEUR DE MENUS = 
36 ‘= CREA-MEN = 
4 ‘= Juin 1967 = 
99 ‘ = copyrights : Gaetan Bourree = 
&ë ‘= et CPC = 
7Q ‘ =======2=222222222=222222=2222=2222= 
Eù 

96 


199 CALL &BB4E:CLS: BORDER 0: INK 9,02INE 1,6:INE 2,0: INE DE 
3,0:PAPER O:PEN 1 
118 SYMBOL AFTER 32 


128 ‘ 
130 SYMBOL 
149 SYMEOL 
156 SYMEOL 
16 SYMEOL 
170 SYMBOL 
189 SYMBOL 
196 SYMBOL 
200 SYMBOL 
210 SYMBOL 
220 SYMBOL 
234 SYMEOL 
240 SYMBOL 
250 SYMBOL 
260 SYMBOL 
270 SYMBOL 
280 SYMBOL 
290 SYMBOL 
300 SYMBOL 
319 SYMBOL 
320 SYMBOL 
330 SYMBOL 
340 SYMBOL 
350 SYMBOL 
36û SYMBOL 
370 SYMBOL 
380 SYMBOL 
390 SYMBOL 
400 SYMBOL 
419 SYMBOL 
420 SYMBOL 
430 SYMBOL 
44ù SYMBOL 
450 SYMBOL 
460 SYMBOL 
470 SYMBOL 
480 SYMBOL 
49û SYMBOL 
500 SYMBOL 
510 SYMBOL 
520 SYMBOL 
530 SYMBOL 
540 SYMEOL 
550 SYMBOL 
560 SYMBOL 
570 SYMBOL 


33,16, 16,16,16, 16, 16,0 
15° 36 36 12h de, 124, 36,36,0 
36,8, 30, 40,28, 10, 60,8, 0 
38,24, 36,40, 16, 42,68, 58,0 
39,8,8,16,9,0,0,0,0 

40,8, 16,32, 32,32, 16,8,0 
41,16,8,4,4,4,8, 18,0 
42,0,84,56, 124,56,84,0,9 
43,0,16,16,124,16,16,0,0 
44,0,0,0,0,0,8,8, 16 
45,0,0,0,124,0,0,0,0 
46,9,9,0,0,0,0, 18,0 
47,0,2,4,8, 16,32, 64,0 
48,24,36, db, bb, bb, 38, 24, 
49,8,24,8,8,8,8, 28,0 

50,60, bb, 2, 12,48, 64, 126,0 
51,60, b6, 2, 12, 2, bb, 6, à 
52,12,20,36,68, 126,4,4,8 
3,126,64,64, 124,2, 66, 69, à 
54,60, 66, 64, 124,66, bb, 60, à 
55,126,2,4,8, 16,16, 16,0 
56,60, 6b, bb, 69, bb, bb, bô, à 
57,60, bb, b, 62, 2, bb, 6,6 
58,0,9,0, 16,0,0, 16,0 
59,9,0,0,8,0,8,8, 16 
6b,4,8,16,32,16,8,4,0 
bi,9,9,124,0,0, 124,0, 0 
62,32, 16,8,4,8, 16, 32,0 
b3,60,6b,2,4,8,0,8,0 
65,24,36, db, bb, 128, bb, bb, à 
&b,124,6b, bb, 124, bb, bb, 124,0 
67,28,34, 64,64, 64,34, 28,0 
48,120, 68, 6b, 66, bb, 68, 120,0 
69,126,64,64, 120, 64,64, 126,0 
70,126, 64,64, 120, 64,64, 64,0 
71,28,34, 64,78, 66, 34, 28,0 
72,66, bb, bb, 126, 6b, 66, bb, à 
73,56,16,16,16, 16, 16,56,0 
74,14,4,4,4,68, 68,56, à 
75,66,68,72, 112,72, 68,66, à 
76,64,64,64,64, 64,64, 126,0 
77,66, 182, 90,66, 6b, bb, bb, à 
78,66,98,82, 74,76, 66, bb, 0 
79,60, bb, bb, bb, bb, bb, B, à 


9380 SYMEOL 
999 SYMBOL 
696 SYMBOL 
bi SYMEOL 
620 SYMBOL 
639 SYMBOL 
64ÿ SYMBOL 
65% SYMBOL. 
66 SYMBOL 
676% SYMEOL 
6Bè SYMBOL 
696 SYMBOL 
766 SYMBOL 
716 SYMBOL 
720 SYMBOL 
736 SYMBOL 
746 SYMBOL 
759 SYMBOL 
76ÿ SYMBOL 
776 SYMBOL 
786 SYMBOL 
79% SYMBOL 
896 SYMBOL 
810 SYMBOL 
826 SYMBOL 
839 SYMBOL 
846 SYMBOL 
856 SYMBOL 
B&0 SYMBOL 
876 GYMBOL 
88è SYMBOL 
896 SYMBOL 
906 SYMBOL 
916 SYMBOL 
929 SYMBOL 
930 SYMBOL 
948 SYMBOL 
956 SYMBOL 
96 SYMBOL 
976 SYMEOL 
980 SYMEOL 
990 SYMBOL 


86,124,66, 66, 124, 64,64, 64,0 
81,66, 66, bb, bb, 74,68, 58, 0 
82, 124, 66, 66, 124, 6, bb, bb, D 
83,64, 6b, 64, 6, 2, bb, 60, à 
84,124,84,16,16,16,16,56,0 
85,66, 66, &b, bb, bb, bb, bd, 0 
86,66, 6b, bb, bb, bb, 36, 24,0 


87,130, 130, 130,130, 144, 170,68,0 


88,66, 66,36, 24,36, 6b, bb, 0 
89,139, 130,68,56, 16, 16, 16,0 
96,126, 2,4, 24,32, 64, 26,0 
91,56, 32,32, 32,32, 32, 56,0 
92,192, 96,48,24,12,6,2,0 

93, 65, 4, 4, 4, 4, 4, 66, 0 


97, à, 0, 56, 4, 60, 68, 58, 0 


98,64, 64,92,98, 86, 6b, 124,0 
99,0,0, 60, 44,64, 64, 6,0 
196,2, 2,58, 70,66, 6b, 62,0 
191,6,0, 65, bb, 124,64, 60,0 
192,24, 36, 32,112, 32,32,112,0 
193,0, 2, 60, 66, bb, 60,2, bû 
194,64,64,7b,82,98, b, 66,0 
195,8,0,24,8,8,8,28,0 
196,2,0,6, 2,2, 66, bb, bù 


197, 64, 64, bb, 68, 120, 6B, 66, à 


196, 24,8,8,8,8,8, 30,0 
199,0,0,68, 170, 146, 146, 146,0 
110,0,0,92,98, 66, b, bb, à 
111,0,0,60, 66,66, bb, bà, à 
112,0,9, 124,34, 34, 60, 32,112 
113,0,0,58, 68, LB, bo, 4,14 
114,0,0, 198,50, 32,32, 112,0 
115,0,0, 60,64, 60, 2, 124,0 
116,32,32,120, 32, 32,34, 28,0 
117,0,0, 66, bb, bb, 7, 58,0 
118,0,0,66, 66, bb, 36,24, 0 
119,0,6, 130, 146, 146, 170, 68,0 
120,6,0,66, 36, 24,34, 66,0 
121,0,6, 66, bb, bb, 2,2, 124 
122,0,0, 126,68, 24,34, 126,0 
123,12,16,16,32,16, 16, 12,0 
124,8,8,8,8,8,8,8,0 


1906 SYMBOL 254,36, 0,60, b6, 124,64, 60,0 
1910 SYMBOL 255, 4,8, 60, 6b, 124, 64, 6,0 


1926 


1039 ORIGIN 6,6: MOVER 186,50: DRAUR 


1:DRAUR 250,0, 1:DRAWR 9,-300, 1 


1949 MOVE 266,56: DRAMR 0,100: DRAUR 5,5: DRAMR 200,0: DRAN : 


R 5,-5:DRAUR 0,-199 


1950 xc=305: x1 


9.01+#vc-6.141#xc 
1668 FOR n=i TO 45 


1679 x2=e+0.99xkx1-0.141+y1 : 


1989 PLOT x1,yi:DRAW x2, y2 
1690 x1=x2:y1=y2 | 


1160 NEXT 


1119 MOVE 266,356: DRAWR 6,-20:DRAWR 15,6: DRAUR 6,29 
1126 MOVER 182,6:DRAWR 0,-20:DRAWR 15,6: DRAWR 9,20 


250,0, 1:DRAUR 6,300, | 


2329:y1=220: ye=ylie=0.6i#xcH, 1414#yc 2 f= 


y2=#1+0.99%y1+0, 141441 


ED 


EL 


?NKK 
?TJé 
?CK< 
?QL< 
#HC< 
?LD< 
DŸE< 


35 


1139 FEN Î 3PF< 
1148 LOCATE 5,2:PRINT "Ga":;CHR$ (254: "tan Bourr':CHRS(Z >KG< 
J5);"e et CFC proposent :" 


1159 INK 1,26:FOR 1=1 TO Z6O6:NEXT 2MH< 
1169 FEN Z:x$="CREA-MEN":x=16:y=17:G0SUR 1230 DJ 
1174 PEN Z:LOCATE 15,2$:PRINT “GENERATEUR" FÛ< 
1186 LOCATE 16,21:PRINT "DE MENUS" JL 
1196 INE 2,2: INE 3,8:FOR i=1 TO 1606:NEXT 3FHS 
1200 PEN j:x$="EN CHARGEMENT": x=i4:y=24:G0SÛR 1276 #AD< 
1219 RUN'CREA-MEN. FIN" 3UE< 
1226 3GF< 


1230 FOR i=1 TO LENCaS):c=HIMEM+ 148% (ASC IMIDS (x$, à, 11) 06 
32): SYMBOL 253,0, PEEK (c) ,PEEK (ci ,PEEK (c+1),PEEK (c+1),PE 
EK(c+2) ,PEEK (c+2) ,PEEK (c+3):SYMBOL 252,PEEK (c+3),PEEK IC 
+4) ,PEEK (c+4} ,PEEK (c+5) ,PEEK (c45) ,PEEK (c+b) ,PEEK (c+6) , 4 


1249 LOCATE x,v:PRINT CHR$ (253) :LOCATE x,y+1: PRINT CHR$ > 2H< 


(252) 


1256 x=x+1:NEXT: RETURN VI @ 


LISTING 2 


19 REM HHHHEENEENNN PE 
24 REM # CREA-MEN * 2HC£ 
36 REM * GENERATEUR DE MENUS * #RD< 
46 REM * AMSTRAD CFC6I28 version £.1 * 3HE< 
96 REM * par GAETAN EOURREE L #ÜF< 
bù REM * 21 av. des acacias # 2NG* 
76 REM * 25274 COMBOURG 99:73:00:05 # *EH< 
80 REM HHHHHHEEEEEOBHHORE »XJE 
9ù REM 2MK£ 
140 REM 2FE£ 
119 REM 3GC< 
120 REM 2KD< 
136 REM - initialisations - 2HE< 
FAQ REM === --srsss 2MF< 
156 REM ARTE 
1ëà REM MH 


179 CLS:MODE 1:INE 9,0:INE 1,0: INK 2,6:INK 3,9: BORDER 4 WJ< 


180 WINDOW #1,2,18,7,22:WINDOW #0, 20,39,2,22:WINDOW #2, PNK< 
2,18,2,5:WINDOW #3, 2,39, 24, 24 

190 PAPER 6:PAPER #1,0:PAPER 4#2,0:PAPER #3,0:FEN 1:FEN ZL4 
#1,2:PEN #2,3:PEN #3,3 


260 CLS:CLS #1:CLS #2:CLS#S PH 
219 DEFINT I-N,W-Y:DEFSTR 2 ?YD< 
224 DIM nom$(16) ,chargeur$ (16) 3KE< 
236 invé=CHR# (24} : g$=CHR$ (34) #DF< 


240 dh$="CREATEUR DE MENUS":w=2:x=liyi=i:y2=2:G0SUB 346 ;UG< 


250 LOCATE#?2, 1,2:PRINT #2," vers 2.1 ";CHRS(164):"1987 >CH£ 
266 LOCATEHZ, 1,4: PRINT #2," Ga";CHR$(254);"tan Bourr"; >AJ< 
CHR$ (255) ; "e" 

276 ORIGIN 6,0:MOVE 8,7:DRAUR 0,384, 1:DRAUR 624,0, 1:DRA >TK£ 
MR 0,-384, 1:DRAUR 624,0, 1 

280 MOVE 8,310:DRAMR 284,0, 1:MOVE 295,290, 1:DRAMR 0,-35 >NL< 


36 


D,1:MOVE 8,46, 1:DRAUR 624,0, 1 
296 INK 1,26: INK 2,2: IN 3,8 
369 GOTO 1090 

310 REM 

320 REM 


359 REM - procedure double-hauteur - 
366 REM --- 
37ÿ REM 
384 REM 


390 FOR i=1 TO LEN(dh$}:c=HIMEM+1+8* (ASC MIDS (dh$,1,11} 


-32;:SYMBOL 253,9,PEEK (c) ,FEEK (ci ,PEEK (c+1) ,PEEK (c+1),P 
EEK (c+2) ,FEEK (c+2),PEEK (c+3):GSYMBOL 252. PEEK (c+3). FEEK( 
c+4) ,PEEK (c+4),PEEK (c+5) ,PEEK (c+5i ,PEEE (c+bi , PEER (c+6), 
( 

490 LOCATE#W, x, Li PRINT #n, CHR$ (253) 
418 LOCATE#n, x, y2: PRINT #u, CHR$ (252) 
420 x=x+1 

434 NEXT i 

44% RETURN 

45% REM 

4ëû REM 

HO REM semence 
489 REM - procedure ecriture - 
AQUUREM es 
596 REM 

914 REM 

920 ecr$=STR$inolg)+" “+2 

926 PRINT#9,ecr$:nolg=nolg+ià 

949 RETURN 

999 REM 

96% REM 

DIQREN se 
589 REM - procedure effacage#l - 
290 REM, === 
656 REM 

bià REM 

620 PAPER#4, 6: PAPER#S, 0 

636 FOR i=i TO 4 

649  WINDOW#4,2,18,7,7+1 

654 WINDOW#S,2,18,22-1,22 

bbÿ  CLS#4:CLS#S 

674 FOR j=1 TO BO:NEXT 

684 NEXT 

69% CLS#1 

796 RETURN 

714 REM 

729 REM 

D REM 
749 REM - procedure effacage#ü - 
750 REM 
760 REM 

774 REM 

780 PAPER#K4, 6: PAPERKS, à 

796 FOR i=2 T0 8 

86%  HINDOW#4,29,59,2,1 

819  WINDOW#,20,39,22-1,22 


820  CLS#4:CLS#5 
839 FOR j=1 TO BO:NEXT 
849 NEXT 


DO REM 

920 REM 

938 REM 

940 ch$="":car$="":1=0 

959 PEN#u, 3: LOCATE#N, x, y: PRINT#u, “<"'s 

960 car$=INKEVS$: IF car$="" THEN S6û 

974 car$=UPPER$ (car$) 

988 IF car$=CHR$(13) THEN LOCATE#N, x, y: FRINT#, “ ‘:GOTO 
1656 

990 IF car$=CHR$(127) THEN GOTO 1999 ELSE 1929 

1909 IF 19 THEN 1=1-j:ch$=MID$ (ch$, 1,1) :x=x-1: LOCATE#W 
XVI PRINTHN,"E 

1919 GOTD 1649 

1926 IF ASC(car$)>=mi AND ASC(car$)<=ma AND lmaxi THEN 
LOCATEHN, x, y: PRINTH, car$+"<"s:ché=ch$tcar$:x=x+1:1=1+ 
i:car$="" 

1939 REM 

1649 GOTO 96ù 

1654 RETURN 

1964 REM 

1979 REM 

1989 REM 

1999 REM - traitement principal - 

1106 REM 

1119 REM 

1126 REM 

1139 ‘ 

1146 ‘ SSSR s=sssn=ess-2es 

1159 ‘ SELECTION & CATALOGUE 

1166 ‘ Sansssnsessnssssssses 

1179 

1184 w=1 

1190 LOCATE#N, 1,3: PRINT#, "Avec quel lecteurtravaillez- 

vous ?" 

1200 PEN#y, 1: LOCATE#4, 9,8: PRINT#n, inv$+"A"+invés : PEN#N, 

2:PRINT#n," ou “5:PEN#N, L:PRINTHN, inv$; “B'sinvé 

1216 PEN#w,2 

1220 lec$="":WHILE lec$<{?"A" AND lec$<>"B":lec$=UPPERS ( 
INKEY$) : WEND 

1239 IF lec$="A" THEN :A ELSE ::B 

1240 

1259 y=i2 

1266 LOCATE#W, 1,y:PRINT#u, “Mettez la disquette r'+CHR$ 
(255}+"ceptrice dumenu dans le lecteur "+lec$+" et app 

uyezsur une touche ." 

1270 CALL &BB18:G0SUB 589 

1286 CAT 


?ML< 
2VM< 
RN€ 
PRP< 
>UG< 
PMR 
PÂTE 
IU< 
2MK< 
#RL< 
2RM< 
?TN< 
20P< 
2VQ< 
AR< 
PRT< 
?QU< 


>UVé 
?KB< 


?QC< 
PRD< 


?LE< 
CF 
2M6< 
2PHK 
>QJ< 
2NK< 
EL 
2FC< 
?KD< 
?LE< 
?6F< 
>AG< 
?FH 
CI 
?LK< 
?JL< 
>AM< 


2YD< 


3VE< 
>AF 


?Q6< 
>JHKK 
?NJX 
?WK< 


?DL< 
>FM< 
?PN< 
?DE< 


1346 LOCATE#N, 2, 1: PRINT#HW, in v$ 3 AE 

1350 LOCATE#NW, 2,2:PRINT#u, "Menu Disquette" 

1360 LOCATEHN, 2, 3: PRINT Hu, HER INVS 

1370 LOCATE#N, 3,5:PRINT#n, “Num"+CHR$ (255)+"ro :“:PENKu, 
il 

1380 ‘ 

1390 x=13:y=5:mi=49:ma=57:maxi=3 

1496 GOSUB 999:no$=ch$ 

1419 PENKw,2:LOCATE#u,3,7:PRINT#w, "Face  :":PEN#u, 1 
1420 PEN#u,3:x=13:y=7:mi=65: ma=bb: maxi=i 

1430 ch$="":WHILE ch$="":G0SUB 900:WEND: fa$=ch$ 

1440 PEN#N, 2: LOCATE#w, 3, 12: PRINT#w, "Donnez le nom" 

1450 nbsoft=0 

1469 w=1:LOCATE#W, 3, 13: PRINT#u, "du “+inv$+"progranne"+i 
nv$+"s" 

1470 w=3:x=7:y=1:mi=32: ma=255: maxi=25 

1486 GOSUB 990:1F ch$="" THEN GOTO 1574 

1499 CLS#3:nbsoft=nbsoft+{:nom$ (nbsoft)=ch$ 

1508 ‘ 

1519 w=1:LOCATE#, 6, 13: PRINT#W, inv$+"loader"+invé+"  : 
1520 w=3:x=14:y=iimi=32:ma=255: maxi=12 

1530 ch$="":WHILE ch$="":G0SUB 990:1F INSTR(ch$, “.“}=ù 
THEN ch$="":CLS#3: x=14: WEND 

1540 CLSHw 


1556 chargeur$ (nbsoft}=ch$ 

1566 IF nbsoft{9 THEN GOTO 1460 
1579 ‘ 

1580 IF nbsoft=à THEN GOTO 2619 
1590 

16609 ‘ GE 

1619 VERIF ICATIONS 

1628 ‘ Re 

1636 ‘ 


1640 GOSUB 740:LOCATE#1,3, 11: PRINT#1, SPACES (49) 

1656 FOR i=i TD nbsoft 

1666 CLS: CLS#3 

1676 PEN 2:LOCATE 19-LEN(chargeur$ (i})/2,169:PRINT "'"sc 
hargeur$(i);""" 

1686 PEN 1:LOCATE 2,12:PRINT “est le LOADER de :" 

1696 LOCATE#3, 13-LEN(nom$ (i})/2,1:PRINT#3,"'"snom$(i);" 
"M [OK 71" 

1700 ok$="":MHILE ok$£>"0" AND ok$<>"N":0okS$=UPPERS (INKE 
Y$) : WEND 

1710 ‘ 

1720 IF ok$="N" THEN 1730 ELSE 1850 

1730 CLS:CLS#3:w=1 : PENNu, 2: LOCATE#NW, 3, 12: PRINT#n, “Donne 


. 2 le nom" 


1740 LOCATE#, 3,13: PRINT#n, “du “+inv$+"programme"+inv$+ 
1750 w=Six=7:y=1imi=32: ma=255: maxi=25 

1760 ch$="":WHILE ch$="":60SUB 990:WEND 

1770 CLS#3:nom$(i)=ch$ 

1786 w=1:LOCATE#u, 6, 13: PRINTHN, inv$+"chargeur"+inv$+" : 


?RF4 
?FG< 
2H 
?BJ< 
?AK< 
?FL£ 
?LM< 


>PN< 
>DP< 
>CF< 
>66< 
>QH€ 
AA 
FWK< 
PNL< 
2RM< 


?DN< 
2YF< 
>UG< 
>HG< 
>PH< 


AA 
>JK< 


?YL< 
> IM< 
?WN< 
>0P< 
LE 
?TRé 
PWH< 
?CXK 
PA LS 
?ML< 
>MM< 
IN 
>WP< 
> TR 


2ŸR4 
HT 
2EJ< 
?LK< 
>DL< 
>LM< 
>ON< 
?EP< 
>WQ 


)VR 
PRTX D 
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1790 w=ix=i4iy=timi=32:ma=255:maxi=ii >DU< 
1890 ch$="":WHILE ch$="":G0SUE 909:1F INSTR(CRS,". "=D 7 JKK 
THEN ch$="":CLS#3: x=14: WEND 


1819 CLS#w:chargeur$ (1) =ch$ ?UL< 
1826 LOCATE#I,3,11:PRINT#{, SPACES (46) 2NM< 
1839 G0TO 1660 #KN€ 
1846 ‘ >QP< 
1839 NEXT >MQ< 


1866 CLS:w=3:CLSHw: LOCATEHN, 5, 1: PRINT#n, “SAUVEGARDE DU  >JR< 
MENU  (O/N) ?" 
1870 k$="":MHILE k$<>"0" AND k$<>"N": k&=UPPERS(INKEYS) : 2VT< 


WEND 
1886 IF k$="N" THEN GOTO 2619 ?RU< 
1893 men$="MENU. BAS" 3WV£ 


1900 w=3: CLS: PRINTHN, " NOM=" 3; :PEN#u, 2: PRINT#3,men$;:P >KL< 
EN#w, 3: PRINT#N, " GARDER NOM?" : PEN, 2: PRINTHN, 

“ O/N" 

1910 K$="":MHILE k$<>"0" AND K$<>"N": K=UPPERS (INKEY#) : 2LM< 
WEND:IF k$="0" THEN 1970 

1926 PRINTHw," NOUVEAU NOM : “ssw=iix=20:y=limi=32ima MN 
=259:maxi=12 

1936 ch$="":WHILE ch$="":G0SUB 900:1F INSTR(CRS,".")=0  NP< 
THEN ch$="":CLG#3: «=14: HEND 


1935 men$=ch$ ?TWK 
1949 ‘ #RQ4 
1950 ‘ TR 
1968 3UT< 
1970 ‘ ssssssns=sss2sss=s >NU< 
1989 ‘ SAUVEGARDE DU MENU 3FV< 
1999 ‘ RS AE 
2009 +DC< 
2616 CLSHS:CLS:CLS#1: INK 2,0:PEN 2 ?MD< 


2020 dh$="SAUVEGARDE DU MENU" :w=0: x=2: y1=10: y2=11:G0SUB ?BE< 
349 


2930 INK 2,2 DRF< 
2649 PEN i:nolg=16 >FG< 
2650 OPENOUT men$ BH 
206ù z="REM menu realise a l’aide de":G0SUB 486 AA 
2970 z="REM CREA-MEN":GOSUB 48 ?EK< 
2080 z="REM par Gaetan Bourree 1987":G0SUB 489 ?LL< 
2099 z="'":G0SUB 480 >BM£ 


2100 z="mode 1:cls:symbol after 32:border O:ink 0,0:ink ?RD< 
1,0:ink 2,0:ink 3,0":G0SUB 480 
2119 z="paper d:pen i:defint i-n,x,y":G0SUB 48ÿ ?VE< 
2120 z="synbol 254,102,0,60,102,126,96,60,0":G0SUB 480 >XF< 
2130 z="symbol 255,12, 16,60,102,126,96,60,0":G0SUB 480 >G66< 
2146 z="dim nom$ (19) ,chargeur$ (16), long(19)":G0SUB 480 >AH< 
2150 z="pen 2":60SUB 480 ?6J< 
2168 z="'":GOSUB 480 ?1K< 
. 2170 2="x$="4+g$+"MEN DISK" gba" r=16y=3:B0GUB 396":6 :FL< 
OSUE 480 
2189 z="locate 10,25:print chr$(i64)+"+g$+" Ga"+g$+"+ch 7VM< 
r$(254)+"+g$t"tan Bourr"+g$+"chr$(255)+"+g$+"e 1987":6 
OSUB 480 . 
2196 z="pen i:gosub 436":G0SUB 480 ?EN< 
2200 2="pen 3:":1F no$="" THEN z=2+"locate 18,8:print " ?PE< 
+g$+"FACE “+fa$+g$ ELSE 2=2+"locate 18,8:print “+g$+"No 
“4no$+" FACE "+fa$+g$ 
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2210 GOSUB 480 ?EF< 


2226 z="nbsoft="+STR$ (nbsoft):GOSUB 485 PG< 
2230 z="for i=i to nbsoft":G0SUB 480 ?6H< 
2240 z=" read nom$li},chargeur$(i}":60SUB 48 ?LJ 
2256 2=" locate 7,10+i":G0SUB 480 LS 
226% z=" pen Z:print i;":60SUB 486 #XL£ 
2270 z="  Jong(i}=25-len(nom$(i))}":GOSUE 485 AM 
2280 z=" print string$(long(i},"+g$+"."4g$+");":GDSU HN< 
B 486 

2296 z=" pen 1":G0SUB 486 LFé 
230% 2=" print nom$(i)":GOSUB 480 3VF< 
2316 z="next":G0SUB 486 AG< 
2320 2="°":GO0SUB 480 #XH< 


2336 z="locate 15,21-(16-nbsoft)/2:print chré(24);"+g$+ JJ< 
“Votre choix ?"+g$+":chr$ (24) ":GOSUB 480 

2346 z="ink 1,26:ink 2,2:ink 3,8":G0SUB 480 >EKE 
2356 2="k$="+g$+q$+"iuhile k$="+g$+g$+":k$=inkeyéiwend" zUL< 
:GOSUB 486 

2360 z="rep=val(k$}":G0SUB 484 + 5M< 
2376 z="if rep<i or reponbsoft then 290":G0SUB 480 EN 
2380 z="cls:paper b:pen {:ink Ô,8:ink 1,0:ink 2,6":G0SU >EF< 
B 486 

2398 z="x$=n0m$ (rep) :x=(49-1en (nom (rep) ))/2:y=1l:gosub TK 
399":GOSUE 486 

2406 z="pen 2:locate 14,14:print “+g$+"en chargement"+q MG 
$:G0SUB 489 


2419 z="ink 1,26:ink 2,2":G0SUB 480 EH 
2420 z="run chargeur$ (rep) ":GO0SUB 48 A'AR 
2430 z="end":G0SUB 489 ?0K< 
2449 z="°":GO0SUB 480 AL< 


245 z="for i=1 to len(x$):c=himemti+B#(asc(midé(x$,i,1 ?XM< 
))-32):symbol 253,9,peek(c) ,peek(c) ,peek(c+1),peek(c+1) 
,peekic+2) ,peek(c+2) ,peek(c+3):symbol 252,peek(c+5) ,pee 
k(c+4) ,peek(c+4) ,peek (c+5) ,peek (c+3) ,peek (c+6) ,peek (c+b 
),0":G0SUB 480 

246ÿ z="locate x,y:print chr$(253):locate x,y+liprint € ?TN€ 
hr$(232)":60SUB 480 


2470 z="x=xtiinext:return":GOSUB 484 NP 
2486 z="'":G0SUB 480 EX 
2490 z="move 240,330: drawr 158,0,1":G0SUB 485 ?DR< 


2500 z="move 95,250: drawr 460,0,3:draur 0,-190,3:drawr  ?BH< 
-460,0,3:drawr 6,199,3":GO0SUB 48ÿ 


2519 z="return":G0SUB 48ÿ PME 
2526 2="'":G0SUB 480 +1K£ 
2536 FOR n=1 TO nbsoft >CL< 
2549 z="data “#nom$(n}+","+chargeur$(n):GOSUE 48 M€ 
2559 NEXT >UN£ 
256% CLOSEOUT IP 
2578 >RO< 
2580 ‘ sassss==2222 »3NR< 
2596 ‘ FIN OÙ PAS 7 >DT< 
2600 ‘ 3KJ< 


2610 w=3:LOCATE#W, 5, 1:PRINT#, "VOULEZ-VOUS CONTINUER ( ?LK< 
D/N) ?" 

2620 k$="":MHILE k$<>"0" AND k$<C>"N':K&=UPPERS(INKEYS): 2NL< 
WEND 

2630 IF k$="0" THEN CLS:CLS#1:CLS#3:w=l:y=6:GOTO 1260  ?JM< 


2649 CALL d >HN<@ 
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CPC — REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous recevrez 
chez vous votre revue. Vous bénéficierez de réduction sur certains produits et vous recevrez gra- 
tuitement 1 n° hors série tous les deux mois. 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, des arti- 
cles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 

PCompatibles MAGAZINE : la référence en matière d'initiation et de perfectionnement sur les 
“compatibles PC”. 

Attention, tous nos abonnés recoivent avant parution des souscriptions sur les nouveaux livres 1 
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O 6 numéros 105F y 
à SORACOM 
D Abonnement essai 8 numéros 55F Con led Ab een 
D AMSTAR 11 numéros 100F 


BP 11 - 35170 BRUZ 


D PCompatibles Magazine 11 numéros 200F 
ATTENTION ! Il ny a pas d'abonnement rétroactif. 


NOM Prénom 
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Code postal Ville 


Date Signature 


Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. 
Retournez le(s) bulletin(s) ou une photocopie. 


CPC 
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B SONDAGE MENSUEL 
- CPC n°25 


Pour nous aider à mieux cerner vos désirs, remplissez le dos de ce bulletin, découpez-le et retournez-le à 
l'adresse suivante : 


Editions SORACOM 
SONDAGE MENSUEL CPC 
La Haie de Pan 
35170 BRUZ 


Inscrivez vos remarques et suggestions ci-dessous : 


3% 


ne 


PARTICIPEZ A CPC ! 


Remplissez soigneusement ce coupon et joignez-le à votre programme, sur cassette ou sur disquette. Envoyez le tout à : 


CPC 

La Haie de Pan 

35170 BRUZ 
Le programmeur : 
Nom : Prénom : Age : 
Adresse complète :: 
Le programme : 
Nom : Catégorie : Jeu Utilitaire [1 Educatif 
Taille : Périphériques utilisés : 
Support : 
Compatibilité (testée) avec : [) 464 Ü] 664 [] 6128 [] PCW 8256 

0 PC 1512 PCW 8512 


Attestation sur l'honneur 
Je soussigné, , déclare être l'auteur du programme ci-joint et ne l'avoir jamais proposé 
à une autre revue. 


Le : 1 / à : 


Signature : 


De mmmmmmnmmmnmmnnnnn 


Notez les articles de ce numéro selon les critères suivants : 


0 : ne me concerne pas 1 : ne m'a pas intéressé 
2 : intérêt moyen 3 : intéressant 
4 : très intéressant 5 : passionnant 


OPINION GLOBALE SUR CE NUMERO : 


Ë A 
6) È 
f K 
él Ë 
L Actualités C1 Générateur de Sprites La E 
4 CAO sur CPC ui) Programmez votre imprimante js il 
a Amstrad Computer Show ei Trucs et astuces 5 || 
EH Technique des masques 3 Buffer C1] || 
Hi Amsrythmes = Initiation à CP/M LD : 
Trois Dés 3 Pénétror il 
L Générateur de menu C1 Branchezle turbo ! [1] ë 
h Tout sur SOUND Hi Bancs d'essais matériels C1] h 
di Symétrie ps Banc d'essai logiciels A E 


Lunumemmemmmmmmmuu nl 


TOUT 


Bernard POISOT 


QUELQUES 
INFORMATIONS 
COMPLEMENTAIRES 
SUR LES EXPLICATIONS 
DES INSTRUCTIONS 
SONORES 


Les rendez-vous entre les voies : un rendez-vous s'effectue 
à plusieurs. Ce n'est pas une découverte. Cela s'applique éga- 
lement à la synchronisation des canaux qui doivent être 
mutuellement informés de leur rendez-vous avec le ou les 
autres. Ce programme vous en fait la démonstration : 


La ligne 10 initialise la routine qui nous informe en perma- 
nence sur l'activité des canaux. 

En 20, la voie A est chargée pour l'émission immédiate d'un 
son. En 30, la voie B est à son tour chargée, mais elle a un 
rendez-vous (RV) avec A. 

En 40, la voie A reçoit une nouvelle série de valeurs, sans 
être informée du RV. Le son est exécuté sans B. 

En 50, de nouvelles valeurs sont envoyées à la voie À, mais 
avec l'information de RV avec B. C'est ici que la synchroni- 
sation devient effective. 

En 60, le canal C prend un RV avec A et B. 

En 70, B prend le même RV avec A et C. 

En 80, A rejoint le groupe. 

Lorsque ces lignes sont prises en compte, A et B sont occu- 
pés à émettre les sons précédemment programmés. Dès que 
les sons en cours seront terminés, donc que les 3 canaux 
seront disponibles, ils génèreront simultanément le son qui 
leur a été commandé lors du RV. 

La ligne 90 évite que le programme ne s'arrête après avoir 
envoyé tous les ordres sonores, car nous n'aurions plus le 
retour d'informations sur l'occupation des canaux (SQ). 

La fin effective de l'exécution n'aura lieu que lorsque le canal 
A (c'est celui qui émet le son le plus long) terminera son 
œuvre. C'est la ligne 110. 


Vous constatez qu'une voie sonore ayant rendez-vous ne peut 
être activée qu'au moment où l'autre en est informée et bien 
sûr au démarrage de la note. 

Bien que ce soit inutile, il est possible de fixer à un canal un 
RV avec lui-même. 


Un complément aux articles précédents s'impose alors : les 
bits 3, 4 et 5 de l'ETAT DE CANAL PEUVENT avoir simulta- 
nément la valeur 1, mais cela présente peu d'intérêt. 

De même, les bits 3, 4 et 5 du résultat de SQ{x), qui sont 
le reflet des précédents, POURRONT être ensemble à 1 si 
l'ETAT DE CANAL l'a imposé. 

Par ailleurs, les bits 6 et 7 de l'ETAT DE CANAL PEUVENT 
aussi avoir ensemble la valeur 1. Cela donne : SOUND 
128+64+no... et cela revient à SOUND 128 +no... suivi de 
SOUND 64 + no... Là encore, ce n'est pas une impossibilité 
mais une combinaison ne présentant que peu d'intérêt. 


QUELQUES REMARQUES 


— Les valeurs utilisées par les diverses instructions sonores 
sont des nombres entiers. La plupart d'entre elles peuvent 
avoir des décimales. Le BASIC les arrondit à l'entier le plus 
proche. 

— Certains paramètres de l'instruction SOUND sont faculta- 
tifs. Le BASIC prend, quand elles ne sont pas mentionnées, 
des valeurs par défaut. Ce sont : 

20 pour la durée, 12 pour le volume et pas d'effet pour les 
enveloppes ENV et ENT. Il y a une exception : en cas d'utili- 
sation du bruit seul, la période est à O et les autres paramè- 
tres sont inutiles. Il faut donner une valeur au volume, car son 
omission provoque une erreur de syntaxe. 

— Si l'on bloque avec 64 plusieurs canaux dans la même ins- 
truction SOUND, ils ne seront activés que lorsque TOUS 
auront été libérés par RELEASE, dans la même instruction ou 
chacun leur tour. 


—— 

19 e55ai5s de rendez-vous 
26 CLSIEVERY 26 GÜSUE 110 
30 SUOUND 1::00:1@8:" à emet un son 
49 ZUUND 10:1608,:00:" 

charse K en rendez-vous avec À 
50 ZOLIND 1:400,:06:° 

À emet Un Ssonr:sans rendez-vous 
£Q ZSOUND 1+146:200:00: 


prosaramme sur À Un rendez-vous avec 


Zi ( 
120 IF SA(1)+125 


1:09 END@ 


THEN RETURN 


E 


7 ZSUOIIND 4+5+14,:000,1008: ‘ 

charse C en KV avec A st E 
20 ZSOUND 2+5+35%5: 00170: 

charse &R en KV avez A et © 
90 SUUND 1+14+32:50,200:" 

charae À en KV avez Bet C 
190 GÜTI 106: âttente.de l’ordre END 
119 FRINT "£a(i)="ssn(1)5" SA(s)="NsEnR(z) 
5" Sa(4)="; (4) 
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SYMETRIE 


D. VASIJELVIC 


Vous venez d'achever un très beau dessin représentant ‘’L'’au- 
berge de la pleine Lune’, futur cadre d’une aventure 
périlleuse. 

C'est au moment de faire pénétrer votre héros en ces lieux 
ténébreux que vous vous apercevez que rien ne va: la porte 
est à gauche, alors qu’elle ne peut être qu'à droite et la fené- 
tre doit être sur la Tsode à gauche ! 

Impassible, vous chargez la routine ‘’SYMETRIE’’ et faites 
‘’CALL &AO3SE-RETURN'’. Et comme par enchantement, le des- 
sin devient symétrique à lui-même. 
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Figure n° 1: 
DESSIN D'ORIGINE 


Figure na 
SYMETRIE POLAIRE 


Figure n° 3: 
SYMETRIE Y 


Figure n° 4: 
SYMETRIE X 
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indépendantes des routines de la ROM 
et n'utilisant aucune variable du systè- 
me, les trois petites routines de symé- 
trie sont valables aussi bien pour le 
CPC-6128 que pour le CPC-664 ou 464 
et ceci quel que soit le mode d'afficha- 
ge. Ces routines ont aussi l'avantage 
d'être relogeables, grâce à la générali- 
sation des déplacements relatifs. Elles 
sont indépendantes les unes des au- 
tres et chacune a son propre point d'en- 
trée. Ainsi, il n'y a pas de paramètre à 
transmettre par CALL et les seules 
adresses à retenir sont celles des 
appels : 

CALL &A000 — pour la symétrie polai- 
re 

CALL &AOS3E — pour la symétrie par 
rapport à l'axe Y 

CALL &A088 —-pour la symétrie par 
rapport à l'axe X 

Basées sur l'échange symétrique par 
rotation opposée des contenus de 
deux octets placés symétriquement, 
les deux premières routines sont con- 
çues principalement pour une utilisa- 
tion en mode 2. Néanmoins elles fonc- 
tionnent parfaitement en mode 1 et mê- 
me en mode 0, à un détail près : les cou- 
leurs seront d'une certaine manière 
complémentées et donc, inversées. Le 
jaune, par exemple, deviendra bleu 
clair et inversement. Le nombre de cou- 
leurs et le dessin lui-même seront bien 
conservés. 

La troisième routine, la symétrie par rap- 
port à l'axe X, est basée sur le simple 
échange des contenus des deux oc- 
tets placés symétriquement. Elle fonc- 
tionne, donc, parfaitement et sans au- 
cune restriction, quel que soit le mode. 
Elle est aussi la plus rapide et quasi ins- 
tantanée |! 

Dans tous les cas, l'échange se fait di- 
rectement entre les octets de la mémoi- 
re réservée pour l'écran, c'est-à-dire de 
la zone comprise entre &CO000 et 
&FFFF. Grâce à cela, les routines ne 
demandent aucun autre emplacement 
en mémoire, à part la place qu'elles oc- 
cupent elles-mêmes. La mémoire 
BASIC sera protégée par MEMORY 
&9FFF. Les routines ne pourront pas in- 
verser les écrans placés à une autre 
adresse que &C000 (&4000 ou &8000, 
par exemple). Pour cela, il faudrait modi- 
fier tous les pointeurs ainsi que les va- 
leurs des poids forts, prévues pour les 
tests. 

Avant toute chose, il faut, bien enten- 
du, saisir et sauvegarder l'ensemble 
des routines sous la forme binaire. Le 
dessin à inverser selon la symétrie choi- 
sie doit être affiché à l'écran. Pour 
éviter de faire apparaître des mes- 


sages d'erreurs, "READY", ou même 
vos propres commandes, il est conseil- 
lé de supprimer complètement l'afficha- 
ge, ou de faire activer un deuxième 
écran, situé lui à partir de l'adresse 
&4000. Le plus simple à faire est de limi- 
ter l'écran courant à zéro ligne de texte 
par WINDOW 1, 1, 26, 26. 

Signalons aussi qu'une symétrie ortho- 
gonale peut être obtenue en effectuant 
successivement la symétrie polaire et 
la symétrie orthogonale complémentai- 
re et ceci dans n'importe quel ordre. 
Ainsi en appelant d'abord la symétrie Y 
par CALL &AOSE, puis la symétrie polai- 
re par CALL &A000 on obtient le même 
résultat qu'en appelant directement la 


çues, les routines présentées se 
prêtent mal aux modifications nécessai- 
res à cet effet. D'autres part, la dimen- 
sion horizontale de la fenêtre serait tou- 
jours un multiple de 8 points. Il est donc 
préférable de concevoir des routines 
appropriées qui pourront traiter les 
fenêtres d'une précision d'un pixel. 
J'espère vous les présenter dans un 
avenir plus ou moins proche. En 
attendant, faites tourner vos beaux 
dessins. 

NB : Chargement du programme : Td- 
pez le listing contenant les DATA, 
sauvez-le, puis faites RUN. Entrez 
ensuite l'instruction SAVE "SYME- 
TRIE", B, &A000, &F3. 


symétrie X par 
CALL &A0O88 ! Il 
est, donc, possi- 
ble de revenir au 
dessin initial en 
utilisant la symé- 
trie appropriée 
(en l'occurrence, 
la symétrie X). 


Les figures 1 à 4 
illustrent les diffé- 
rents cas. 


La figure n° 1 
représente le 
dessin d'origine. 


Les autres figu- 
res montrent les 
dessins symétri- 
ques en fonction 
du type de symé- 
trie et ceci tou- 
jours par rapport 
au dessin de la fi- 
gure n° 1. Le su- 
jet de ces des- 
sins n'est pas 
choisi au hasard. 


Qu'est-ce qui se 
prête le mieux à 
toutes les posi- 
tions dans l'espa- 
ce que l'espace 
lui-même ? 


Comme vous l'a- 
vez déjà consta- 
té, il s'agit des 
dessins occu- 
pant la totalité de 
l'écran. Il est par- 
fois utile de 
pouvoir inverser 
une petite partie 
(une fenêtre) de 
l'écran. Telles 
qu'elles sont con- 


19 ArtADOG: FeLAGFTE:L=100:WHILE ÂSSF 
FOR AA TO +15: READ Chi ke VAL (ME 
CH) :SEC+E +655 TE 6x (S+E:32767): IF AËî=F 
THEN FOFE À,K 
29 NEXT:IREAD D$:T=VAL CMRUAHDS) SIT T< 
+6 THEN FARINT CHRS$ (733 "Erreur ligne 
"sLi END ELSE LeL+$:WEND 
199 DATA FS,ES,21,60,0C06,11,CF,FF,6E 
.HO,CB,I1E,ER,CR, 1ô,EE, 9856 
195 DATA 6D,26,F7,CHB,1E,25,1B,7C,Eé6 
GDILFE,OE,28,07,7C,E6,4EG% 
119 DATA GEB,FE,O6E,26,05,7D,EE,ES8,28 
.98,7C,FE, 66,26, D9,E1, 15AZ 
115 DATA F1,09,61,16,64,0G9,ER,27,25F 
sED,4Z,ER,18,EC,FS,ES, 1DDE 
126 DATA 21,66,06,11,4F,C6,66,728,0E 
,V60,CB,1E.EEB,CE, 16,ER,22C&4 
125 DATA 6D,26,F7,CB,1E,27,1E,09,26 
,ÉE,01,28,00,00,7C,E6, Z8E% 
DATA 67,FE,67,28,607,7C,E6,0F,FE 
2F,26,65,7D,EE, DA,28,2EFT3 
DATA 11,E5,61,4F,06,09,EH,E1, 66 
s/C,FE,66,26,C9,E1,23586 
DATA F1,09,061,:2:6,00,09,18,E9,FS 
25,21,00,00,11,86,FF,Z3CCE4 
DATA 66, G0,0E,SO6,7E,FS, 14,77,F1 


FAT L 
du 1 


DATA C5,61,49,66,27,3F,ED,42,Ci 
.EE,05,206,E5,7C,FE, F3, 4AAB 
155 DATA 28,24,FE,E:,268,%0,FE,FE, 28 
, 2C,FE,EB,28,28,0E,56,5221 
16à DATA 7E,F5,14,77,F1,12,25, 
,29,F5,18,04,66,6C,7C,5726 
165 DATA FE,66,206,BE,E1,F1,C9,01,F6 
03,09,EB,61,96,04,27,SESE 

DATA 3F,ED,42,EB,18,E7,66,061,46 

.99,EB,27,2%F,ED,42,6491 

DATA EB,18,DA,06,66,00,60,06,6@ 
99,00, 06,00, 66,066, 066, 666E@ 


3,6D 
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SYMi PYRADEV SYMETRIE 
TITLE SYMETRIE 
PRINTR p72,W80 
LIST 
3 
L Echange symetrique par D: Vasilievic 
L Version AMSTRAD CPC mai 1987 © 
s 
: ECRAN COMPLET cpc 6128: 664, 464 — z MODES 
: en mode a ou mode i les couleurs sont complementees : 
5 sauf pour symetrie x ou les couleurs sont conser vee: 
3 
$ SYMETRIE POLAIRE 
ORG #A4000 
F5 STARTO: PUSH ÀF ;point d'entrees symetrie polaire: 
ES PUSH HL ; Sauvegarde des registres: 
2100Cû LD HL , #C000 ; Adresse du debut de l'ecran: 
11CFFF LD DE ,#FFCF Adresse de la fin de l'ecran: 
QE 08 comPTO: LD c,#08 ;Echange symetrique + 
CBIE SYMO: RR CHL) 
EB Ex DE,HL 
cB16 RL (HL) 
EB Ex DE,HL 
@D DEC € Huit rotations? 
20F7 JR NZ, SYMO ; Sinon; continuer - 
CBIE RR (HL) 3 Si ouis recuperer le dernier bit. 
23 INC HE ;Adresse suivante en tete. 
1B DEC DE ;Adresse precedente en queue: 
7C LD AH Test du poids fort de l'adresse 
E603 anp #05 ;de tete (deux valeurs possibles) - 
FE0S cr #05 ; On verifie si le centre de l'ecran 
2807 JR z,CPLO sest depasse: 
7C LD AH ; Dans le cas de possibilite reelle 
E60B AND #0B sil faut aussi tester le poids 
FEUB cP #0B ;faible: ce qui sera fait par CPLO. 
2005 JR NZ, SUITO -Dans le cas contraires continuer - 
7D CPLO: LD AL .Test de poids faible de j'adresse 
EEE8 XOR #E8 ;de tete en cours et dans le cas 
2808 JR z, SAUTO ;d'egalite changement des pointeurs: 
7C SUITO: LD AH :sinon verifie si la totalite de 
FE00 cr #00 ;de l'ecran ete traitee et si 
20D9 JR NZ ,COMPTO :ce n'est pas le cas: recommence: 
Ei por HL ;Si le travail est termines on 
Fi por ÀF recupere les registres et on 
c9 RET effectue le retour au SIC. 
011804 SAUTO: LD BC,#0418 ; Changement des pointeurs: ce qui 
09 ADD HL , BC ;permet de sauter les adresses non 
EB EX DE ,HL ssignificatives soit toutes les 
37 SCF ;adresses dont le poids fort est 
3F CCF ;n7 où nr et dont le poids faible 
ED42 SBC HL , BC est superieur a CF: 
EB Ex DE,HL ;Ceci etant fait, on reprend la 
18EC JR SUITO suite. 
3 
; SYMETRIE Ÿ 
FS STARTY: PUSH AF sPoint d'entrees symetrie Y. 
ES PUSH HE ; Sauvegarde des registres: 
2100C0 LD HL,#C000 ;sAdresses du debut et de la fin de 
114FC0 LD DE ,#C04F ;la premiere Ligne de l'ecran. 
0628 LD B,#28 ; compteur demie ligne (40 octets) 
0E08 CcOMPTY: LD c,#08 ; Echange symetrique deja vu pour la 
RR (HL) ;symetrie polaire: 
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PYR 
ADE 
V 
SYMETR 

IE 


006 
7 
AQ5 
3 CBiE 
JR 
RR He SYMY 
) 


& à 
69 
e 2@7a AGS4 
@ 207 AQ@5 1B 
1 7 
e | te AE de 
ré A pe 
CR 2075 AGE 2800 DEC D 
e | va76 sy Le . “e 
æ ta ES  . D NZ,C 
| 078 083 EQ7 ap B OMPT 
e 2079 nu e° 2807 HS a . 
,  QG8 AG4 7C DA , BC 
© | de Adee E6Q AND H sôn 
| @ 1A 8 F or CP #07 : av 
CU] 082 26 EQ #Q ; Sui an 
@ 2 A A 2 F JR 7 s lv ce 
| 083 06 205 zZ 5 Co nee 
op BAR Ée AND Ÿ test pre but 
e | @85 AQ6F EEDQ ns #QF sde je en de 1a 
208 AQ7 281 CPL # ne F dec li 
| DE: AG 1 ES 1 vs. JR is 5q nt, te > la gne 
Latr] 7 ne a1 LD Z,SU eus s cette f, v er 1 ser i 
e | ai 4FQ ne re ITY Een ts es Hoi: 
2085 A7é : @ SUITY . #Da 51 s zones na es ci rs a Dinte | 
© | es 277 Et s Ho ; Pour Sébage. ress A eds 
Q@91 AG78 E1 L SH H UTY 5 Test les g util es d ou ifie 
le; os AQ7A 70 A PE : {Test du poids isees pou nFDQ, 
e Goes 078 7C bi pi Je rem oe né vai rl 
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LE PREMIER ÉDITEUR DE LOGICIELS UTILITAIRES 


NOUVEAUTÉ 


ZENITH : Lo capacité de stockage des 
disquettes 3 pouces est au maximum de 
178 Ko. Il est donc difficile de stocker plus 
de 4 programmes par faces. Ce pro- 
gramme de compactage réduit les pages 
de présentation ainsi que les program- 
mes (Basic ou Binaire) er un minimum de 
place. Par exemple si vous possédez un 
fichier organisé comme suit: 


LOADER-BAS  1K z ECRAN-BIN 3K 
ECRAN-BIN 17K—+ | À JEUX-BIN 10K 
JEUX-BIN a2k M 


Le loader-bas aura disparu et vous 
aurez gagné 47 Ko de place libre sur 
votre disquette. 


ZENITH : DISC : 250 F TTC 
NOUVEAUTÉ 


L’INTERPRETE : La majorité des 

logiciels existants sont dans la langue de 

Shakespeare, et l'utilisation n'en est que 

plus difficile (Utilitaires - Jeux d'aventures 

Jeux..). Ce programme vous permet de 

traduire en français ou en toute autre 

langue vos logiciels préférés. La démar- 

che est automatique et ne requiert au- 

cune connaissance particulière. 

- Mapping du disque 

- Edition des secteurs 

- Acceptation de jokers 

- Traduit plus de 500 mots à la fois 

- Repère automatiquement sur la 
disquette les textes à traduire 


L’INTERPRETE : 
DISC : 290,00 F TTC 


NOUVEAUTÉ 
TRANSLOCK II permet de récu- 


pérer les programmes et les présenta- 
tions avec leurs encres respectives. La 
relocation est automatique, et tous les 
renseignements nécessaires sont affichés 
en permanence à l'écran. 


TRANSLOCK I : 
DISC : 225,00 F TTC 


Label zeni-qualité : 
ECHOSOFT : DISC 395 F TTC 


Numéro 1 au hit parade des utilitaires : 


——— NOUVEAUTÉ 


BOURSE 2000 
QUAND ACHETER, 
VENDRE, PRENDRE 
DES BENEFICES ? 


Bourse 2000 répond à ces questions et 
à bien d'autres encore avec des instru- 
ments empruntés aux milieux financiers 
les plus cotés (moyennes mobiles, points 
et figures, tableaux, graphiques... 
Bourse 2000 est livré avec un fichier de 
40 valeurs et leurs cotations depuis 
1985. 

Bourse 2000 est un logiciel évolutif ; 
VOUS pourrez VOUS procurer les cotations 
de n'importe quelle valeur sur 2 années 
et plus à ESAT software listing 20 F, 
disc 50 F). 

Bourse 2000 permet de visualiser la 
tendance d'une valeur (hausse, baisse, 
stagnation) et de situer les moments 
d'intervention (achats, ventes...). 


Clubs et associations : contactez ESAT 
software pou des tarifs préférentiels. 


BOURSE 2000 : 
- AMSTRAD CPC 6128 
seulement : 450,00 F 
- AMSTRAD PCW 8256-8512 
(disponible en août) : __ 750,00 F 
- Compatibles PC-XT (disponible en 


août) : _ 1200,00 F 
- ATARI 520-1040 ST (disponible en 
août) : 990,00 F 


ET TOUJOURS : 


HERCULE : Disc 250 F TTC 
- Le complément de HERCULE (ver- 
sion 3,0 ou 4,0) est disponible contre 


80 F + 20 F de port. 


| Nom : 
Adresse : 


NOTRE CATALOGUE EST DISPONIBLE CHEZ | 

VOTRE REVENDEUR OU CHEZ ESAT CONTRE 20 F 

EN TIMBRES (Remboursés à la première 
commande).  … 


Logiciels commandés : 


IMPRESSION  : 


Programmation 

avancée de l'imprimante - 65 comman- 

ces RFX disponibles. 

IMPRESSION : Coss : 200,00 F 
Disc : 220,00 F 


TAPE LEADER : ce logiciel duplique 
vos bandes magnétiques avec un choix 
de 10 vitesses de sauvegardes. Durant la 
duplication, les renseignements sont affi- 
chés sur l'écran. 


CASS : 175 F TTC 
DISC : 205 F TTC 


VIEW TEXT : CASS 135 F TTC 


ET NOS ACCESSOIRES : 


STYLO OPTIQUE : 6128:415F 
8256 : 830 F 
PC:990F 
SCANNER : 890 F 
TUNER TV : 1500 F 
MULTIFACE II : 600 F 


Notre SOFT PSYCHOTEST : 
DISC : 135 F TTC 
CASS : 100 F TTC 


PROMOTION : 


"207% 
SUR TOUS LES 
LOGICIELS ! 


JUSQU'AU 30.9.87 


Abonnements 
MEPHISTO MAGAZINE 
(Routines de transferts) 

330 F 12 N° - Port gratuit 


BON DE COMMANDE 
| Prévoir 25 F de port + 20 F pour le contre remboursement. | 


Prénom : __ 


£E S6 8€ 66 - suoneai] ŒUYZI 


Cette longue corvée de 
‘’DATAS"" a pour but ultime 


de générer un code source 


permettant la création de 


tables de sprites, utilisables 


directement à partir de 


l’assembleur. Vous 


trouverez, dans les” 
prochains numéros de CPC, 


de nombreux exemples et 


routines. Ils permettront un 


usage complet de ces 


tables. Notez que ce 


programme, censé tourner 


sur tous les CPC, s'adresse 


exclusivement aux heureux 


possesseurs de drives. 


(Non, non, je n'ai pas été 


soudoyé par le syndicat des 


vendeurs de drives, mais 


22 K d'assembleur sur 


cassette et bonjour la 


déprime!) 


Michel Maigrot 


GENERATEUR 


AVERTISSEMENT 


Etant donnée la longueur du PS tré générateur de 


sprites, il nous est im 


ossible de 


e publier en une seule 


fois. Vous trouverez donc le mode d'emploi ainsi que les 
programmes complémentaires dans le prochain CPC. 


Avant tout, il faut créer les 6 fichiers 
SGDAT, puis le programme SGDRELOC. 
L'instruction RUN ‘’SGDAT1''crée un 
code objet déposé en 20000. Ce même 
code devra ensuite être relogé à l'adresse 
1000 par le programme SGDRELOC. 
Ceci fait, le loader SURGENE.BAS 
permet l'exploitation du code objet 
définitif. 


Les différentes commandes disponibles 
sont décrites dans l'ordre où elles 
apparaîssent au menu principal. 

Avant d'étudier les commandes, il faut 
savoir que ce générateur de sprites, per- 
met de générer 2 types de tables. Le con 
tenu en est limité à 99 sprites différents 
et 20 K. 


e TABLE DITE CHANTIER 


Elle est logée à l'adresse 19256. 
L'adresse 21856 contient la valeur &FF. 
Ce type de table peut conserver des 
sprites quel que soit le mode écran 
sélectionné. En outre, elle conserve en 
mémoire le nom de chaque dessin ainsi 
que les couleurs définies pour chaque 
sprite. C'est en quelque sorte un grand 
fourre-tout ; qui vous permet de loger en 
vrac toutes les idées qui vous passent 
par la tête, mais qui ne peuvent être 
exploitées par un programme. 


° TABLE DITE TRAVAIL 


Elle est logée à l'adresse 21856 ; et peut 
être déplacée à l'aide du programme 
SGMOVTAB.BAS. L'adresse 21856 
contient le mode d'écran (0, 1 ou 2) 
prévu pour l'usage de la table. Elle 
n'admet que des sprites d'un même 
mode et ne contient que les données 
afférentes aux sprites. Elle est créée à 
l'aide de l'option ‘‘PURGE’'' du 
générateur de sprites, à partir d'une table 
chantier. 

Des données plus complètes concernant 
l'organisation des tables seront fournies 
dans les articles suivants. 

Un dernier détail. A l'exception du 
numéro de mode qui ne demande qu'un 
seul chiffre, toutes les entrées 
numériques attendent deux chiffres. 
Ainsi, pour demander le sprite numéro 1, 
entrez 01 puis ENTER. De même en cas 
d'erreur entrez les 2 chiffres avant 
d'appuyer sur DEL pour rectifier. 

Si une entrée numérique s’efface après 
l'appui sur ENTER et qu'il ne se passe 
rien, c'est qu'elle n’est pas admise par 
le programme. (Par exemple MODE 3 ou 
SPRITE O). Fournissez une entrée 
correcte et tout ira bien. 


A SUIVRE 


VAL ER" 4CS) :S=S+K+65536#(64K;32767): IF A€=F THEN FOKE A,K 


06 NEXT:READ D$:T=VAL("& "408: IF T£:S THEN PRINT CHRS (7) :"Err 
eur ligne";L:END ELSE L=L+5:WEND: FRINT'iere partie terminee": 
RUN"sadat2" 

196 DATA 92,60,60,06,00,006,006,00, 06,06, 00, 06,06, 00,06, 00, 0002 
195 DATA 60,90,00,02,04,00,00,09,00,00,00,00,00, 66,00, 8C, 0690 
114 DATA 61,01,64,02,00,06,20,00,01,00,61,06,65, 06,00, 60, 011À 
115 DATA 09,09,00,09,0C, 02,06, 09,00,00,C0,00,06, 06,06, 06, D1E8 
126 DATA 60,06,09,00,00,00,00,00, 00,00, 00,00, 00,00, 00, 04, 01EE 


SGDAT 1 


19 “kite SODATI #66 

20 MODE 1:POKE 20000, 8C3:POKE 20061, 4CB:POFE 20002, &1F 

36 FOR 1=26003 TO 22644:FOKE 1,6: NEXT 

49 A=22005:F=23000:L=100:HHILE A£=F:FOR A=A TO AHISSREAD C#:K 


48 


125 DATA 00,00, 00,00, 00, OA, 00, 44,00, EB, 03, 10, 27,00, 00, 00, 0378 
130 DATA 00, 06,00, 00, 09, 00, 09, 00, 00, 00, 00, DO, 00, 09, 00, 00, 0378 
135 DATA 00,01,FF,FF,FF,FF,FF,FF,FFFFS FF FFF FFF, FF, 1168 
140 DATA FF,FF,FF,FF,FF,FF, 00, 00, 00, 00, 00, 06, 00, CD, 06, BB, 18F3 
145 DATA Dé, 30,FE,00,38,F7,FE, 03, 30,F3,32,EC,03, CD, 47, LE, 2090 
150 DATA 06,01, CD, 4D, LE, 36,E4,C9, CD, 11,BC, 30,04, 3€, 10, 18, 25EF 
195 DATA 08, 29,04, 3E,04, 18,02, 3€, 02,32,E9, 0B,00, 3E, 10, 47, 2872 
16û DATA 4F,CD,ES, 1C, 20,05, 0D,FE, 01, 20,Fb, 01, LA, 1A,CD,E3, 2ED6 
165 DATA 1C,AF,01,90,09,CD,E3, 10, C9, FD, 21, 6A, 3B, CD, 33, 10, 3517 
170 DATA 3A,EC,03,5F, CD, 44, OC, ZA, EC, 03, BB, 20,05, 3E,C9, 32,3 
175 DATA 79,00, FD, 21,8E,3E, CD, 33, 1D,FD, 21, CC, 3B, CD, 33, 10, 41CF 
180 DATA FD,21,FE,3B,CD, 33, 10, FD, 21,5F, 3C,CD, 33, 1D, CD, DF, 4905 
185 DATA 1D,28,C4,FE, 46, 39,02, 32, C8,0B,FD, 21,34, 3C, CD, 33, 5099 
199 DATA 1D,CD,DF, 10,28,B3,32,C9,6B, SA,EC, 03, 47,FE, 06, 20, S6EE 
195 DATA O8, 3A.C9,0B,FE, 27,02, 38, 1B,FD, 21,88, 30, CD, 33, 10, SDF 
266 DATA CD,83,1D, 28,05, 3E,01, 32, EA,6E, 78, CD, GE, EC, CD, 65, 63A9 
205 DATA OC, SA, CB, 0B,32,EE, 03, 21,00, 00, 22, C0, 0B, 22, C2, 0B, 6709 
216 DATA 22, CE 08,22, D0,0B,21, 72,01, 38, CB,6B,CD,0F, 1B, 3A, CAS 
215 DATA BB,0B,CE, 87,32, C0, 0B,CD,E9, 1A, CD, 11,BC, 30, 12, 3A,7295 
226 DATA CO, 0B,FE, 08, DA, 38, 1B, A7, CB, 17, 32,C2,0B, 3€, 04, 18, 7975 
225 DATA 20,20,0F, 3A,C0,0B, FE, 02, DA, 36, 18, 32, C2, 0B,3E, 42, 7E35 
230 DATA 18,0F,3A,CO, 0B,FE, 02, DA, 38, 1E,CE, 3F, 32, C2, 08, 3€, 8305 
235 DATA 01,32,BE,0B, 34, C2,08,5F, 3A,C9, 0B,4F,CD, F7, 1A, 2A,899C 
240 DATA EB,0B, 22, CC, OB,EB, 21, 7E, 02, A7, ED, 52, 30, 0B, JA, CO, 9002 
245 DATA 0B, 3D, 30, 22,00, 0E, C3, 37, 0D, 3A, BE, 0B, 32, CE, OB, 3€, 9407 
250 DATA 02,32, 00,08, 34, C0,08,9F, 34,C8,08, 4F, CD, F7, ÎA, 2A, AE 
255 DATA BB,0B, 22, CA, 0B, 28, 2B, 22, D4,0B, 2A, C2,0B, ED, 48, BE, AOAF 
246 DATA 08, 47,ED,42, CD, C7, ED, 22, D2, 08, ED, 58, CC, ÔB, 21, 86, ABAD 
265 DATA 02,A7,ED,52,CB, 30, CE, 1D, 22, C4, 0B,EB, D5, 21, 72, 01,AFBC 
270 DATA ED,5B, CA, 6B,ED, 52, CB, 3C,CB, 10, 22,C6,68,D1,CD, C9, BBbi 
275 DATA BB, 3€,01,32,DE,0B, CD, DD, 1C, 3A,EA,OB,FE, 00, 28, 07, BE9B 
286 DATA AF,32,EA,0B,C3, 4D,0E,ED, 58, CC, 0B, 3A, CB, 0B, 47,04, C503 
285 DATA 21,00,06, CD, BD, 1C,E5,D5,EE, CD, C7, BD,EB, 2, CO, 0B, CDAG 
290 DATA CD, DS, 1C,D1,E1,10,EC, 21,00, 00, 11, 09,00, CD, C9, IC, D3EE 
295 DATA 2A,CA,0B, 3A,C9, 08, 47,04, 11,00, 00, CD, ED, 1C,ES, D5, D9B7 
366 DATA CD,C7,BD,ED,5B,C2,08, CD, D3, 1C, D1,E1, 16, ED, 18, 2D,E2CD 
305 DATA 21,09,00, 11,00, 00,E5,D5, CD, C9, 1C, 2, CA, GB, CD, BD,EBF4 
316 DATA 1C,E1,ED,58, CC, 68, CD, ED, 1C, D, CD, C9, IC,ED,5B, CC, F24D 
315 DATA 6B, CD, ED, 1C, 11,00, 09, 2A, CAB, CD, ED, 1C, CD, BA, BB, FBFÉ 
326 DATA CD,83,0€,C3,85,0E,FD, 21, 18,35, CD, 33, 1D, 11,68, 02, FEDD 
325 DATA 3A,E9,08, 30,47, 21,8A,01,C5,D5, CD, 1B, 14, 78, CD, 2C,0548 
330 DATA BC,4F, 16,02, 1E,08,CD, 47, BC, Di, SE, 2, 06, 00, 4F,EB, OADO 
335 DATA A7,ED,42,EB,C1, 19,DE,C9, CD, 9, 1A,2E, 01, CD, €, 14, 1207 
346 DATA 21,61,01,CD,75,BB, JA, DE, GB,F5, CD, 12, 1E,F1,CD,EF, LABS 
345 DATA 10,78, CD, 12, 1E, 2A,Cé, 0B, ED, 58, C4,08, CD, C9, BB, JA, 21E7 
350 DATA EC, OB,FE, 01,C2,38,0F, CD, 11; BC, 38, OA, 28,04, E, 0B, 2734 
355 DATA 18,06, 3E,04, 18,02, 3€, 02,32, 16, 1D,3E,02, 32, EC, 6B, 29BC 
360 DATA ED,5B, BE, 0B, CD, 62, 1A,CD, C9, 1C, DD, 2A,FB,0B, DD, 23, 31D2 
365 DATA DD, 23, DD, 23, DD, 4€, 06, DD, 23, DD, 46,0, DD, 23, C5, DD, 39C2 
376 DATA 7E,00, CD, 14, 1D, DD, 23, 10,F6,Ci,0D, 28, 0€,C5, CD, 67, 4041 
375 DATA tACL,ED,SB, BE, 0B,CD, C9, 10, 18,E3,ED,SB, CE, 0B, 24, 4825 
386 DATA D0,6B,CD,F9, 1C,FS,FE, 1, 20,07, CD, 40, 1D, 3E, 00, 18, 4E7D 
385 DATA 02,3E,01,CD, DD, 1C,CD, 19, BD, CD, 45, 12,F1,CD, DD, 1C, 5602 
390 DATA CD, 19,BD,CD,45, 12,CD, 1B,BB, 30,07,FE,E0,D2, C9, 11,5EFD 
395 DATA FE, 13,29, 16,CD, 8, 1B,FD, 21,42, 3D,CD, 33, 1D,CD,83, 6500 
400 DATA 1D,DA,FD, 14,CD,68, 1B,C3,3F,0F,FE, 12, 20, OD, JA, EC, ÉCBC 
495 DATA OB,FE, 00, CA, CB, 1F, 21, CB, 1F,E3,C9,FE, 20, 20,05, CD, 7410 
410 DATA 38,12, 18,C2, 00,00, 00, 00, 00, 00, 00, 00, QD, 00, 00, 00, 7534 


SGDAT 2 


1° ##HH4 sgdat2 ##+#H4 
19 A=22001:F=26006:L=100:HHILE A£=F:FOR AA TD ATIS:READ C$:K 
=VAL("R"4CS) :6=6+K+65536*(S+K>32787): IF A£EF THEN POÉE AE 
26 NEXT:READ Dé: T=VAL("2"4D4): IF TS THEN PRINT CHR$(7}:"Err 
eur jigne";L:END ELSE L=L+5:HEND: PRINT'data 2 termine":RUN"sg 
dat3" 
196 DATA FE,68,26,0A,E5,D5,CD,3F,13,D1,E1,C3,3F,0F,FE, L6,07E6 
195 DATA 29,9A,E5,05,CD,5E,13,D1,Ei,C3,3F,0F,FE, 17,20, 06,0F02 
119 DATA E5,CD,7D,13,E1,C3,3F,0F,FE, 18,26,08,E5,CD,99, 13, 16D2 
115 DATA Ei,C3,3F,0F,FE, 91,29,08,D5,CD,C5, 13,D1,C3,3F,0F,1E47 
120 DATA FE,04,20,08,D5,CD,E2, 13,D1,C3, 3F,0F,EG, DF,FE, 56 2703 
125 DATA 20,12,E5,D5,3A,EA,0E,FE, 69, CC, BB, 18,CD,0F, 18, Di, 2EB0 
138 DATA Ei,C3,2F,0F,FE, 19,26, 16, 3A,EA,OB,FE, 00, CA,3F,0F, 34FB 
135 DATA AF,32,EA,6E,E5, DS, CD, C6, 18,D1,E1,C3,3F,6F,FE,57,3E48 
149 DATA 24,0A,E5,D5,CD,85, 12,D1,E1,C3 3, ÔF,FE,58, 26,04, 45D3 
145 DATA ES,D5,CD,B1,12,D1,E1,C3,3F,6F,FE, 44,20, 0A,ES, DS, 4F6 
159 DATA CD, DD, 12,D1,E1,C3,3F,0F,FE, 41,20,0A,E5,D5,CD, 13,5788 
155 DATA 13,D1,E1,C3,3F,0F,FE, 43,20, 0A,22,D6,0B,ED,53, CE, 5ED4 
169 DATA @E,C3,48,14,3E,0C, CD, 76, 1D, 28,95, 79,E5,D5,FE, 80, 65D4 
165 DATA 26,06, CD, AE, 19,03, BA, 16,FE,29, 20,06, CD,9C, 14, C3, 60972 
176 DATA BA, 14,CD,89,10,C3, BA, 16,ED,5B,BE, O0, 3A,C9,9B, 47, 7385 
175 DATA C5,CD,3F,12,CD, 1B,12,C1,10,F6,C9,21,02,00, ZA, C8, 7A47 
186 DATA 0B,47,C5,CD,2F,12,CD,0A,12,C1,16,F6,09,CD, 62, 1A,813E 
185 DATA CD,89,19,CD,67, 1A,D8,18,F7,D1,E1,C3,3F,0F,22, DB, 8996 
190 DATA 6B,ED,53,D6,0B,3E,0B, CD, 76, 10,28, 15,CD, AC, 1A, C5, 9606 
195 DATA CD,3F,12,C1,C5,CD,51,1A,Ci,D2,BF,11,16,F6,C5,3F,9847 
200 DATA 0F,3E,03,CD, 76, 1D,28,1B,CD, AC, 1A,CS,CD,5F,12,C1,9E71 
265 DATA 78,0D,51,1A,D2,BF,11,CD,6F,14,D2,BF,11,47,10,F0,A6ÛZ 
210 DATA C3,3F,0F,3E,04,CD, 76, 1D,28,15,CD, AC, 1A, CS, CD, 3F, AC56 
215 DATA 12,01,C5,CD,6F, 1A,C1,D2,BF,11,10,F6,C3,3F,0F,3E,B3FC 
220 DATA 95,CD,76,1D,28, 1B,CD, AC, 1A,C3,CD,3F, 12,01, 78, CD, BE20 
225 DATA 67,1A,DA,BF,11,CD,6F,1A,D2,BF,11,47,10,F0,C3,3F,C28C 
230 DATA 6F,3E,0E,CD, 76, 1D,28,15,CD, AC, 1A,CS,CD,3F,12,C1,C8BE 
235 DATA C5,CD,67,1A,C1,DA,BF,11,16,F6,C3,3F,0F,3E, 0D, CD, DO6B 
246 DATA 76,1D,28,1B,CD,AC, 1A,C5,CD,3F,12,C1,78,CD,67, 1A,D73E 
245 DATA DA,BF,11,CD,82, 1A,DA,BF,11,47,10,F0,C3,2F,0F,3E,DEBE 
250 DATA 14,CD, 76, 1D,28,15,CD, AC, 1A, CS, CD, 3F, 12,C1,C5, CD, E6ÿ8 
255 DATA 82,1A.CL,DA.BF,11,10,F6,C3,3F,0F, 3€, OA, CD, 76, ID,ECCE 
269 DATA CA, 63,0F,CD, AC, 1A,C5,CD,3F,12,C1,78,CD,51, 1A,D2,F4C3 
265 DATA BF,11,CD,82,1A,DA,EF,11,47,10,F0,C3,3F,0F,2A, DB, FCO9 
276 DATA ÔB,ED,5B.D6,0B,C3,2F,0F,FE,ED, 20,06,CD,2F, 12,C3,052A 
275 DATA 63,4F,FE,FE,28,0D,F5,CD,38,12,F1,D6,06,CD,FE, 11,6B8E 
286 DATA C3,63,6F,FE,F4,38,0D,F5,CD,3F,12,F1,D6,04,CD,FB, 149D 
285 DATA 11,03,63,9F,CD,FB,11,03,3F,0F,FE,F3,28, 1C,FE, F2, 1CF2 
290 DATA 28,21,FE,F1,28,0B,FE,F0,C6,CD,51, 1A,D8,21,02,00, 243E 
295 DATA C9,CD,67, 1A,D9,CD, 62, 14,37,C9,CD,6F, 1, DB, ED, 5B, 2CE4 
308 DATA BE,0B,C9,CD, 82, 1A,D6, À7,E5, ZA, CC, 6B,ED,42,ED, 4B, 35AS 
305 DATA BE,6B,09,EB,E1,37,09,3E,00,CD, DD, iC, 18,06, SA, DE, 3C7E 
316 DATA 6B,CD,DD, 1C,ES,D5,CD,C9, 1C,FD,Z1,C2,0B, 16,06, 2A, 4SET 
315 DATA CO,08,2D,2D,2D, 20, 3A, BE, QE, 1E,09,CD,D3, 1C,5F, 18, 48B6 
320 DATA 68,FD,BE,00,39, 1B,CD,D3, 1C,D5,F5,CD,C7,BD,F1, 1E, S1AA 
325 DATA 96, CD, BD, 1C,D1,F5,CD,C7,BD,3A,BE,0B,47,F1,80, 1B,5AZA 
36 DATA Ed,D1,E1,C9,CD,62, 1A,ED,5B,BE,0B,01,51, 1A,ED, 43, 62BB 
335 DATA A4,1A,CD,F9,1C,FE, 40, C0,CD, 1B,12,30,02, 18,F3,CD,69ED 
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340 DATA 67,14,CD,96, 1A, CD, 16, 12,38,F8, CD, 67, 1A,D8, 18,F2, 7145 
345 DATA 21,02,00,ED,5B, BE, 08,01,67, 1A,ED,42,A4, 1,CD,F9,77AF 
350 DATA 1C,FE, 06, C6, CD, 18, 12, 30,02, 18,F3, CD, 51, 1A,CD, 94, 7ESE 
355 DATA 1A,CD, 18, 12,28,F6, CD, 51, 14, Dô, 18,F2,ED, 58, CC, 0B, 8506 
366 DATA CD, 82, 1A,ED, dE, BE, 0B,EE, 09,E8,21,02,00,01,6F, LA, BBC& 
365 DATA ED, 43,44, 1A,CD,F9, 1C,FE, 00, C0, CD, 6A, 12, 29,02, 18, 7287 
376 DATA F3,CD,82, 1A,CD, 96, 1A,CD, 0A, 12,38, F8, CD, 82, 1A, DE, 7AEA 
375 DATA 18,F2,ED,5B,BE,0E, 21,02, 00,01,82, LA,ED,43,A4, 1A, 4083 
386 DATA CD,F9, 1C,FE, 00, C6, CD, OA, 12, 30,02, 18,F3,CD,6F, 14, A79F 
285 DATA CD,9%, 1A,CD, GA, 12,38,F8,CD,6F, 1A, D6, 18,F2,CD, 62, 4F94 
390 DATA LA. ED 58 BE 08 CD F9, 1C,FS,CD, 18, 12,38,F7,F1.CD, B87D 
395 DATA 42,12,C0,1B,12,38,F7,CD,67,14,36,E9,C9, CD, 62, 1A,BF73 
ao DATA ED,SB, BE, 0B,CD,F9, 1C,F5,CD, 12,12, 30,F7,F1,CD, 42, C873 
495 DATA 12,CD,12,12,20,F7,CD,6F, 1A,38,E9,C9,CD,F9, 1C, DD, D9C 
4ié DATA 21,0B,0C, DD, 77,00, CD, 62, 1A,CD,F9, 1C, DD, BE, 99, CC, D7EA 
415 DATA 3F,12,CD, 12,12, 39,F2,C9,CD,F9, 1C, DD, 21,68, àC, DD, DEBE 
426 DATA 77,06, CD,51, 14, 30, 0A,CD,F9, IC, DD, BE,00,26,0F, 18, E44B 
425 DATA F1,CD,67,1A,CD,F9, 1C,DD, BE, 60, C, CD, 3F, 12, CD, 12,ECEL 
436 DATA 12,08, 18,F4,CD,F9, 10, DD, 21,08, 00, DD, 77,06, ED,5E, F4£é 
435 DATA BE,0B, CD, F9, 1C, DD, BE, 09, CC, 3F, 12, CD, 1E, 12,38, F2,FBED 
449 DATA C9,CD,F9, 1C, DD, 21,08, ÔC, DD, 77,00, CD, 82, LA, 38, OA, Q2AC 
445 DATA CD,F9, 1C,DD,BE, 00,20, 0F, 18,F1,CD,6F, 1A,CD,F9, 1C, 499 
456 DATA DD, BE, 0, Co, CD, 3F, 12,CD, 1E, 12,6, 18,F6,ED, 58, DA, 1306 
455 DATA 08, 24,DC,6B, CD, DD, 1C,CD, C9, 1C, 2A,EF,6B,ED,5E, ED, 1AF3 
4éù DATA 6B,E5,D5,E5, 21,00, 00, CD, ED, 1C.E1,CD, C7, BD, 11,09, 2247 
465 DATA 06, CD, BD, 1C,E1, CD, C7, BD,EB, 21,00, 00, CD, BD, 1C,E1, 2812 
476 DATA 11,06,00,CD, BD, 1C,C9,CD, BA, BB, SA, EA,OB,FE, 09, 28, 5229 
475 DATA 7,AF,32,EA,0B, CD, CO, 18, DD, 21,E9, 08, 3A,DE, ÔB,F5, 3985 
agé DATA CD,EF, 1C,ED,43,E5,0B, 21,01,01,CD,75,BB,F1,CD, 12,419D 
485 DATA 1E, 3A,ES,0B,CD, 12, 1E,ED, 48,ES, 68, CD, 06, BB,FE, F2, 4988 
496 DATA 28,15,FE,F3,CA, 7, 14,FE, F0, 28,51,FE,F1,CA,E9, 14, 5368 
495 DATA FE, OD, CA, D2,0€, 18,05, AF, CD, GE, 14, 24, DA, 6B, ED, 4B, SADF 
506 DATA ET, 0B, A7, ED, 42, 3A,DE, OE, SD,FE,FF, 2, 22, 3A,E9, 08, 6270 
565 DATA 3D, 24, DF,08, 18, 19,AF, CD, GE, 14, 2A,DA,OB,ED, 4B,E2, 6BBA 
516 DATA 0B,09, 3A, DE, GE, 3C, DD, BE, 00, 26, 04,AF, 2A,E1,68, 32, 6DE3 
515 DATA DE, O8, 22,DA,0B, 3€, 01, CD,0E, 14, 18,80, 3E, 1B, 04, 0C, 7202 
520 DATA BB, 20, 10,01,00,00, 18, 0B,3E,FF,05, 0D, BB, 20, 04, 06, 753F 
525 DATA 1A,0E, 14, ZA DE, 0B,CD,E3, 10, C3, 5D, 14,FD, 21,73, 3D, 7E72 
536 DATA CD,33,1D,CD,83, 1D,F5, ZA, EA, GB,FE 01, 20,07, AF, 32,827 
535 DATA EA,6E, CD, C0, 18, CD, A, 1B,F1,DA, 17,16, 3A,C9,08, 47,B9E0 
546 DATA 2A,D4, 08, ED, 8, D2, 08, FD, 21,EE,03, CD, C9, 1C, CS, ES, 9249 
545 DATA DS,21,00,00,ED,58, C2, 0B,CD,03, 1D,FE, 00, 20, 19, 19,9788 
550 DATA F7,FD, 35,06, 2A, D4,08, CD, 67, 1A, 22,D4,0B,D1,E1, CD, 9FBE 
555 DATA 47,14, C1,DA,38, 18, 18,03, CD, 46, 1D,D1,E1,C1, 2, CO, A767 
560 DATA 0B, 28, 2B,ED,5E, D2,0E, 3A, C9, 68, 47,CD, C9, 1C, C5, ES, AEAG 
Sé5 DATA D5,21,00,00,ED, 58, C2, 0B, CD, 03, 1D,FE, 00, 20, 0D, 19,B3D3 
570 DATA F7,FD,35,00,D1,E1,CD, 51, 1A,C1,18,DF,CD, 49, 1D, D, #C99 
575 DATA E1,C1,2A,D4,08, CD, 51, 1A,ED,5B, BE, ÔB, SA,EE, 03, 47,C3FF 
580 DATA FD,21,C9,0É, CD, C9, 1C,C5,E5,D5, 2A, C0, 6B, CD, C7, BD, CD6B 
585 DATA 11,00,00,CD,03, 1D,FE, 09, 20, 18, 19,F7,FD, 35,00, ED, D2C2 
590 DATA SB,02,0B,CD, 6F, 1A,ED,53,D2,0B,D1,CD,6F, 1A,E1,C1,DE36 
595 DATA 18,02, CD, 40, 10, D1,E1,C1,ED,5B, CC, ÔB, ED, 4B, BE, 0B,E3DD 
&06 DATA CD, 73, 1A,CD,82, IA, SA,EE, 03, 47,C5,E5,D5, CD, C9, 1, EC43 
485 DATA 24,C0,0B, CD, C7, BD, 11,00, 00, CD, 03, 1D,FE, 90, 20, 0D,F1B2 
&io DATA 19,F7,FD,35,00,D1,E1,CD, 82, 1A,C1, 18, DD, CD, 46, 1D,F9E6 
815 DATA D1,Et,C1,CD,E0, 1A,3A,EC, 03, FE, 02,04, 3D, 1C, SA,EC, 028€ 
426 DATA OB,FE, 00, CA, 61, 16, 11,F1,03,21,EC,03, 01,04, 00, ED, 07DD 
825 DATA B6,EB,ES,ES,FD,E1, 3€, 01, 32, 00,00, FD, 22,F6,08, CD, 1996 
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636 DATA 0F,18,FD,ES,E1,01,F4,03, A7,ED,42, 22,FA,OB, AF, 22, 1852 
635 DATA QC, ÔC, DD, E1, CD, 42, 14, 22,F6,0B, CD, Cé, 18,03, 50, 26, F2 
ba DATA 3A,61,55, 30, 32, 61,35, 22, 1,00, FD, 21,62, 55, 47, FD, 240D 
645 DATA 23,FD,23, 19,FA,ED,5E, 62,55,FD, 73,00, FD, 72,01,13, 2C1C 
&5è DATA 21,E0,03,01,04,00,ED,B0,EB,ES,FD,E1,00,AF, 32,EE, 3448 
855 DATA 68, 30,32, 00, 0C, FD, 22,F4,0B,CD,0F, 18,FD, 22,62,55, 39C3 
bÿ DATA AF,32, 00, 0C, CD, 42, 1A, CD, 17, 10, 23, 23,23, 23, 22,Db, 3E69 
&eS DATA 68,E5,DD,E1, 3A,ED,03,FE, 00,28, 15,CD,F1, 18, 3A,EB, 4077 
670 DATA OB,FE, 02, CB, CD, 06, BB, 24, Dé, 6B,ES, CD, 45, 1A, DD, E1, 4EB2 
875 DATA CD,C4,18,3A,EB,6B,FE, 02, C8, DD, 21,00, 41, FD, 21, 06, 5582 
é8o DATA 3E,CD, 2E, 1D, ZA, ED, 63,FE, 06, 20, 06, FD, 21, 0€, 3E, 18, 5AAS 
885 DATA 18,FE, 01, 20,06, FD, 21,15, 3€, 18,0E,FE, 02, 20, db, FD, 5F9C 
690 DATA 21,22,3E,18,04,FD,21,2F,3E,CD, 23, 1D, DD, 23, FD, 21,64FF 
495 DATA EC, 3D, CD, 28, 1D, 3A, 1,60, CD, 12, 1E,FD,21,9F,2D,DD, ons 
706 DATA 23,CD, 28, 10, CD, 11,80, ZA,EC, 03, CD, 47, 1E, DD, 23,FD, 723 
AU Da en NU 0 
719 DATA CD,19,1E,CD,ES, 28, DD, 23,FD, 21,02, 30, CD, 28, 1D,d6, 7FEC 
715 DATA 03, CD, 18, 1E,DD,23,FD, 21,04, 30, CD, 28, 1D, 2A,FE, GE, Bébé 
72% DATA CD, 19, 1E, DD, 23,FD, 21,64, 3D, CD, 28, 1D, 2A,62, 55, CD, BD6C 
725 DATA 19,1E,3A,EB,0B,FE, 06, C2, F9, 17, DD, 23, DD, 23, CD, 6A, 94DA 
726 DATA 1D,FD,21,F4,2D, CD, 28, 1D, 06, 0, CD,45, LE, CD, 9€, 1E, 9841 
735 DATA EE, 21,14, 00,01, 08,00, ED, B9, CD, AC, 1B,E5, ZA,E9, 0B, AÎC2 
746 DATA 3D,47,3E,01,F5,C5,CD,EF, 10, 70,23, C1,F1,3C, 10,F4, A99C 
745 DATA 3E,FF,77,E1,11,2F,0C, 06, 00, 22, Dé, GE, 2A, Dé,0B, 1A, AEAB 
756 DATA FE,FF, 28,06, 4F,0D,09, 13,CB,FE, 18,F0, 3E,01, 32, 2€, B4CÔ 
755 DATA 0C,21,2F,0C, ZE, FF, 06, 14, 77,23, 10,FC, 06, 00, 2A, EC, E951 
76 DATA GB,FE, 00, C6, DD, 23, DD, 23,FD, 21,85, 3€, CD, 28, 1D, CD, C16D 
765 DATA 83,1D,DA,CE, 1F,C3,96, 00, DD, 23,FD,21,FF, 3D, CD, 2B,C928 
776 DATA 1D,CD,9E, 18,06, 08, 7€, CD, SA,BE, 23, 10,F9,09, CD, 11, DÔGE 
775 DATA BC, 38,00, 20,05, 21,54, 18, 18,08, 21,79, 18, 18,03, 21,D2D4 
786 DATA 4D,18,22,4B, 18, DD, 2A,F6, 08, DD, 22,F4,08, ED, 4B,E, DYEA 
785 DATA 63, 2A,D4,0B,ED, 58, D2,68, CD, C9, 1C,D5,C5,E5, 21, 06,E16D 
798 DATA 69,ED,5E, C2, 08, CS, CD, 0D, 1D, C3, 00, 09, Eb, AA,F5, CD, E9S3 
795 DATA 0, 1D,E6,55,47,F1,B0, 18, 3A,E6, 86,F5, CD, ÔD, 10,E6,F132 
80ÿ DATA 44,47,F1,B0,F5, CD, GD, 1D,Eb, 22,47,F1,H0,F5, CD, 0D,FAG9 
885 DATA 1D,E6, 11,47,F1, 80, 18, 1B,0E,07,E6,01, DD, 77,00, CD, 0055 
818 DATA D, 1D, DD, CE, 00, 26,FE, 00, 28,04, DD, CE, 00, Cé, 6D, 26, 0612 
815 DATA EE, 18,03, DD, 77,00, DD, 23,FD, 23, C1, 10,48, SA, GC, 0C, GC5A 
820 DATA FE, 00, 29,06, CD, 38, 1A,ES,DD,E1,E1,CD, 67, 1A,CI,D1,1561 
825 DATA 00,28, 03,C3,39, 18, CD, 49, 10,09, 3,01, 22,EA,08, DD, 1AB3 
836 DATA 21,FÔ :03,3A, EF,03,47,ZA,EE,03,5F, 2A,F6,0B, 22, F4, 2005 
835 DATA 68,05, 3A,EA,OB,FE, 01, 20, 06, 7E, DD, 77,00, 18,04, DD, 26C4 
849 DATA 7E,09,77,DD,23,23,10,EA, C1, 10, CB, CD, 38, LA, 18,E1, 2094 
845 DATA AF,21,00,00,32,7E,19,22,7F,19,32,D4,19,22,D5, 19,214 
850 DATA 32,E4,19,22,E7,19,32,FE, 19,22,FF, 19, SA,ED,03,FE, 3914 
855 DATA 01,20, 0D,3E,C3, 32, D4,19,21,EF, 19,22,D5, 19, 18, 23, 3DD4 
86û DATA FE,02, 20, 14,3E *O,21, D7,19,32,7E,19,22,7F, 19,32, 4201 
865 DATA Eb, 19,21,EE,19,22,E7,19,3E,CD, 21,04, 1A,32,FE, 19, 48AD 
870 DATA 22,FF,19,CD, 11,80, 38, 00, 20,05, 21,96, 19, 18,08, 21, 4CFB 
875 DATA BA,19,18,03,21,89,19,22,87,19,3A,EE, 03, 4F,21,FB, 5201 
880 DATA CA, 22,F4,6B,E5, CD, 29, EC, 22,07, 6C,E1, 11,00, 06, 3A, 57E4 
885 DATA EF,03,47,05,D5, 13, DD, 7E, 00, 77,32, 0B, OC, 09, 20, 00, SCES 
890 DATA FE, 00, CA,CE, 19,C3,89, 19,F5,E6, 55, 17,4 ,F1,E6, AA, 6619 
895 DATA 1F,B1,C3,CE,19,F5,E6,88,1F,1F,1F,4F,F1,F5,E6, 11,6E76 
900 DATA 17,17,17,81,32,F3,08,F1,F5,E6, 44, 1F,4F,F1,E6, 22, 7613 
905 DATA 17,B1,4F,3A,F3,08,B1,18, 14,C5, 06,00, 0€, 08, CB, 47, 7B32 
910 DATA 28,02, CB,FB,CE, 06, CE, 0F, D, 20,F3, 78, C1,E5, A7, ED, 8396 
915 DATA 52,77,E1,00,00,00,E5,4F, 24,07, àC, 3A,0B, 0C, 77, E5,BBSE 


926 DATA 23,22,4 7,40, EI, d6, 66,04, À7,E 1324794 77 Et: , DD, 23, 8E4E 
925 DATA 2513,05 02,76, 19,D1,C1,0D,CE, CD, 38, LA, CD, 64, 1,944B 
936 DATA C3, 76, 19,E5,D5, 24,07, 00, CD, 29, RC, JA,EF, 03, 16, 0, 9482 
35 DATA SF, A7,ED,52, 22,07, 00, D1,E1,09,CE, 30, CB, 10,05, C5, A3ôû 
946 DATA CD, 11,BC, 38,04, 28, 06, 18,08, CB, ZA, CB, LB, CB, ZA, CE, ABDF 
945 DATA 1B,CD, D, BC, C1,D1,C9, 2A,F4, 08, CD, 26, BC, 22, F4, ÔB, BôF4 
956 DATA C9,CD, 14, EC, 21,50,C8, ED, 4B,BE,0B,09, 22,F6,0B, C9, BEG9 
955 DATA ED,4B,Cû,0B,09,C5,E5,ED, 4B, CAGE, 7,ED,42,E1,C1,CiC4 
Su DATA C9, 2A,CA,OE, 23,23, ED, 4E, CG, 06, A7, ED, 42,09, ED, 4B, C9AC 
965 DATA C2,0B,E5,EB,09,E5,ED, 48, CC, GE, 47,ED,42,E1,EB,Ei,D3C9 
976 DATA C9,ED,4B,C2,0B,E5,EB, A7, ED, 42,EB,E1,C, 22, D, 0E, DDCF 
975 DATA ED,53,CE,0B, C7, CD,F9, iC,FE, 00, C8,F5,CD, 38, 12,F1,E 756 
986 DATA E5,D5,CD,00, 06, CD, 42, 12,D1,E1,09, 79, 06,02,FE, 20,EF1B 
985 DATA 28,04,30,01,09,04,04,09,E5,21,EF, 0,01, 12,00, 71,F393 
976 DATA 23,70,21,ED,08,01,17,00,71,23,70,E1, 01, 10, 00, A7, FB60 
995 DATA EE, 09, 22, DA, 0, 01, 24,00, 47,ED, 42, 22,E1, 08, C9, CD,FES6 
1906 DATA 11,BC,47,0E, 00, ZA,C9,08, 04, CE, 3F,30,02, DE, d1, 10, 022 
5 
1905 DATA FB,81,22,EF,63,09,C5, 16,00, 06,08, 21, 09, 00, CE, 39,079 
9 
1916 DATA 36,61,19,CB, 23,08, 12,10,F5, 22, BB, 0B,C1,C9,FE, 60, 0E2 


1915 DATA CA, 2F,1B,FE, 01,28, 17,05,4F, 04, 08, 29,70, 01,28, 02, 130 


7 
ê 


1926 DATA 67,20, 18,F7,70, 32,37, 1B,7 
D 
1925 DATA 6B,AF, 32,27, 18,C9,00,FD, 21,45, 30, CD, 33, 1D, CD, d6, F7 


,32,BB,0E,CI,09,22,88, 197 


1836 DATA BB,ZA,EC,OB,FE, 00, CA,CE, 1F,21,CB, 1F,E3,C9,FD, 21,27€ 
ë 

1935 DATA F5,3C, 18, 04, CD, 92, BC, CD, 06, 00, 0Ù, 06, 00, Gù, 00, Où, 202 
1 M 


SGDAT 3 


1° ###k sgdati ###4 
19 A=26001:F=29000:L=100:HHILE ASSF:FOR AA TO A+IS:READ Céik= 
VAL ("R"4C#):G26+K+69536% (8+K:32767):1F A£=F THEN POKE AE 
29 NEXT:READ D$:T=VAL("E"4D4): IF T£bS THEN PRINT CHR$ (7); "Erre 
ur ligne";L:END ELSE LEL+S:WEND: PRINT" data 3 termine" :RUN"sqda 
ta" 
156 DATA C7,BD,FD,21,01,3C,CD,33,1D,CD,9A, 1D,C3,CB, 1F,3E,682B 
195 DATA 1i,CD,5A,BB,FD,21,16,35,CD,33, 1D, SA,EC, 0S,FE, 99, GECD 
119 DATA C9,CD,8A,4€, CD, BA, EE, 3E, 01,CD,0E, 14,21,D2,0E,ES, 16dé 
i15 DATA C9,ZA,EC,03,FE,00,Cû,E5, 21,02, 14, CD, 79, BB,E{,3E, 1E2E 
126 DATA 13,CD,5A,BB,C9,3A,10,0C,47,21,2E,4B,11,0À,66,19,2257 
25 DATA 19,FD,C9,2A,19,0C,47,21,10,4F,11,16,06,19,19,FD, 2691 
139 DATA C9,FD,21,14,37,CD, 33, 1D,06,01,CD,66,BB,FE, 6D, 28, 2CAB 
135 DATA 47,FE,F0,28,0F,FE,F1,20,F1,04,70,FE,49,20,0E, 06, 3307 
149 DATA 61,78,18,09, 05,78, FE,69,20,03,06,04,78,FE, 01,20, 37A 
143 DATA d6,FD,21,1E, 37,18, 1C,FE,02, 20, 06,FD, 21, 30,37, 18, 3C10 
150 DATA 12,FE,03,20,06,FD,21,42,37,18,08,FE, 04,29, BE, FD, 41DÀ 
155 DATA 21,54,37,CD,33, 10, 18,B2,05,78,32,ED,03,C9,3A,10,471F 
i6ô DATA 0C,47,FD,21,62,55,FD,23,FD,23,10,FA,FD,6E,00,FD, 4EFS 
° 165 DATA 66,61,22,F8,0B, 22,00, 00,23, 3A,EB,OB,FE, 00,E5, C4, 54AD 


178 DATA 90, 10,E1,09, 3A,C9,0B, 47, 3A,EE, 03, 4F, 21,2F, OC, 22, SASC 
175 DATA Dé, 08, 24, D4, 08, ED, 5B,D2, 08, CD, C9, 10,05, C5,E5, ED, 6389 
186 DATA 5B,C2,0B,C5,D5, 21,00, 00, CD, 03, 1D,FE, 00, 28, 25,5F, 6903 
185 DATA 3A,2E,0C,47,21,2F, 0, 7E,BB, 26, 19,FE,FF, 28,05, 23,6DE1 
199 DATA 10,F5,18, 19, 24,D6,08, 7B, 77, 23, 22, Dé, dB, 3A, 2E, C, 72A5 
195 DATA 3C, 22, 2E,00,D1,C1, 10, CB,E1, CD, 67, 1A,C1,D1, 6D, CE, 7450 
260 DATA C3,52, 1C,CD, AC, 18, 16,00, 1C,7E,FE, FF, CE, CE, EF, 47, 8263 
205 DATA 4F,7B,CD,E3, 1,23, 18,F0,E5,D5,C5,F5,CD,F6, BB, F1, BD07 
216 DATA C1,D1,E1,09,E5,05,05,F5,CD,F9,BB,F1,C1,D1,E1,C9, 9465 
215 DATA E5,D5,05, CD, CO, BE, C1, D1,E1,09,E5,05,F5,CD, C3, BE, A762 
226 DATA F1,D1,E1,09,F5,CD,DE,BB,F1,C9,F5,C5,D5,E5, CD, 32. B45é 
225 DATA BC,Ei,D1,C1,F1,09,E5,05,F5,CD,35,BC,F1,D1,E1,C9,Cii8 
236 DATA E5,05,C5,CD,FO, BB, C1,D1,E1,07,E5,05,C5, CD, F3, BE, CE45 
235 DATA C1,D1,E1,C9,CD,03, 1D,CD, 20, BC, C9, C5,06, 64,F5, C5, 775 
246 DATA CD,2F,BC,FE, 00, C4, 42, 12, CD, 6F, LA, C1,Fi, 17, 1ô,EE, DFé0 
245 DATA C1,09,E5,00,E5,E1, CD, 75,BB,E1,FD, 7E,00,FE,FF, CB, EB94 
256 DATA CD, 5A,BB,FD, 23, 18,F3,3E, 07, CD, 5A, BB,C7,E5,F5, FD, F564 
255 DATA E5,4F, 32, BB, 0B, CD, 78, BB, 70,FE, 18,38, 0F, CD, A4, 1D,FD58 
266 DATA FD,21,DE,3E,CD,33, 1D,3E,FF,32,BE,0B,FD,E1,F1,E1, 0694 
265 DATA C9,06, 14,21, 1A, 00, 3E, 20, 77,23, 19,FA,C9,ES, CD, 1E, 0059 
276 DATA BB,E1,C9,FD, 21,54, 3B, CD, 33, 10, CD, 06, BB,E6, DF,FE, 1509 
275 DATA 4F,CA,98,1D,FE, 4€, 20, F2, 3€, 11, CD, 5A, BE, A7,C9, 37, 1DDD 
286 DATA C9,FD, 21,09, 20, CD, 33, 10,C3,06, BB, AF, CD, 9F,BE, FD, 274D 
285 DATA 21,09, 3C,CD, 33, 1D, CD, 06, BB, 3€, 01,C3,9F, BE, C5,E5, 2F34 
296 DATA 47,3E,42,CD,1E, BB, 78,E1,C1,C9,FD,21,42,39,CD, 33, 371D 
295 DATA 1D,CD,DF, 1D,FE, 00, 29, 06,FD, 21,09, 3€, 18,F0,FS, JA, 3EBZ 
306 DATA 41,55,47,F 1,8, C9, 06,02, 21,0E, 60, CD, 06, BB,FE, 30, 44Fi 
305 DATA 38,F9,FE,49,30,F5,F5,CD, SA,BE, F1, Dé, 36, 77,23, 10, 4DFD 
316 DATA EA, 6,02, CD, 4D, LE, 30, DE, JA DE, 0C.87,47,87, 87, 80, 53ES 
315 DATA 4F, 3A,0F,0C, 81,32, 0€, 00, C9, 26, 06, 6F,06, 01, 18, 02, 56D5 
326 DATA 06,04,D5,C5,FD, 21, 10, 00, FD, 23,FD, 23, 10,FA, C1 FD, SEBE 
325 DATA 5E,00,FD, 56, 01,AF,47, ED, 52,38, 03,20, 18,F8,FD, 2B,65B1 
336 DATA FD,28,CD,47, 16,19, 10,E7,7D,CD,47, 1E, Di, C9, Cé, 36, 6D5A 
35 DATA CD, SALBB.C9,CD.06, BB,FE,0D,28,0F,FE, 7F, 20,F5, FD, 76bd 
340 DATA 21,D6,3E,CD, 32,10, 10,F7,A7,09,37,C9, 48, 21, IA, 6C, 7CE6 
345 DATA CD, 06, BB,FE, 7F, 28, 1B,FE, 0D,CE,FE, 20, 38,F2,57,05,847E 
350 DATA 79,88, 38,08, 7A, 77,23, CD, SA,BE, 18,E4, 64, CD, 4, 1D, BEGC 
355 DATA 18,DE,79,04,B8, 30,03, 05, 18,F3,FD, 21, D0, 3E,CD, 33,916 
360 DATA 1D, 28, 3€, 26, 77, 18,09, 06, OA, DD, 7E, 00, CD, SA, BE, DD, 97CE 
365 DATA 23,10,F6, 3€, 20, CD, 58, BB, C9, 5F, DD, 6E, 00, DD, 66, 01,9EEE 
376 DATA A7,ED, 42, DD, 75, 06, DD, 74,01,DD, 23, DD, 23, 1D, 26, EA, A6BF 
375 DATA C9,47,DD,6E,00, DD, 46, 01, 19, DD, 75,00, DD, 74,61, DD, ADCE 
380 DATA 23,D0,23,10,ED,C9,CD, 64, 1D,FD, 21,15, 38, CD, 33, 1D, 480 
385 DATA 06,04, CD,65, 1E, 21, 1A, 00, 11,F4, 03,01, 0,00, ED, B, BBE4 
196 DATA AF,22,EA,0B, 1E, 06, 21,38, 4B,FD, 21,FF,03, 22,F4, 0B, BEB9 
395 DATA DD,21,F0,03,06, 0, 10, CD, CB, 29,38, 26, DD, 7E, 00, BE, CHE 
40û DATA 29,19,DD,23,23,10,F5,7B,FD, 77,00,FD,23,2E,FF, 32, CBED 
405 DATA EA,0B,01,08,00, 2A,F4,0B, 09, 18, D2,FE, 2A, 28,E8, 7B,DIBC 
416 DATA 18,F0,3A,EA,OB,FE, 06, 20,00, FD, 21,A4,3F,CD, 33, 1D, DESB 
415 DATA CD,94,1D,37,09,3E,FF,FD, 77,00, A7, C9,FD, 21,50, 3F, EOED 
426 DATA CD, 33, 1D,CD,83, 1D, D, CD, 2€, BD, 30,6D,FD, 21,71, 3F,E7AA 
425 DATA CD,33,1D,CD,83, 1D, 38,EF, C9, ZA, SA, BB, 32,43, 00, 22,EE24 
430 DATA 44,00, 2A,5B, BE, 22,45, 00, 3A, 75, BB, 22,47, 00, 2, 76,F2BE 
435 DATA BB, 22,48,0C, 3€, C3, 32, SA, BB, 32,75, BB, 21,3, 1F, 22,FE78 
448 DATA SB,BB,21,45,3F, 22,76, BB, 37,09, CD, 2E, ED, 28,FB, C3, 0654 
445 DATA 28, BD,CD,45,3F, 34, 44, 00, 32, 5A,BB, 2,45, 00, 22, 5B, 0556 
450 DATA BB, 3A, 47,00, 32, 75, BB, 2A, 48, 0, 22, 76, BB, AF, 32,43, 00F5 
455 DATA OC, C9,AF, 32,EA, 08, 32,99, 24, 32,EB,0B, 32, EC, 0, 32, 1112 
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4ub DATA OD,0C, 32, 79,00, 21, 00,00, 22, 9A, 24, 21,00, C0, 22,Fb, 14DC 
465 DATA 6B, 3C, CD, DD, 1C, CD, 65, 0C, FD, 21, 43,32, CD, 33, D, 3€, 1675 

470 DATA FE, 32,35, 1C, CD, 7F, 26, CD, 06, BB,FE, 30, CA, 33, 2C,FE, 2345 
475 DATA 42,CB,FE, 62,CB,FE, 43, CA, BD, 2F,FE, 63, CA, ED, 2F,FE, 2083 
486 DATA 32,CA,84,22,FE, 30,38, DF,E6, DF,FE, 45, 30,D9, 47, 3A,35FC 
485 DATA 61,55,FE, 00, CA, 4F, 18, 78,FE, 11, 26,65, CD,EB, 20, 18, 3C7D 
490 DATA 91,FE, 13,26, 0B, CC, CE, 20, 38, 88, CD, &E, 25, C3, 96, 0C, 4386 
495 DATA FE, 14,CA, AC, 22,FE, 15, CA, D5,23,FE, 16, 20, 06, CD, 84, 4570 
500 DATA 24,C3,CB, 1F,FE, 17,02,68, 20,CD, A7, 25,C3,CB, 1F,FE, 5404 
55 DATA 18,CA, 90, 2C,FE, 19, CA, 3E, 28,FE, 41, CA, D7, 2D,FE, 44, 5C45 
519 DATA CA, 75, 2F,C3,00, 20,06, 04, DD, 21,35, 3F, 21,68, 00, DD, 4178 
515 DATA 5E,09,D0, 56,01, CD, C9, 10, 21,48, 01,CD, Bi, 1C, DD, 23, 67Cb 
526 DATA DD, 23, 10,E8, 3€, 08, 32,EA, 0B, DD, 21,EA, OE, 01, 20, 00, 4D39 
525 DATA 21,68, 06, 11,40,06,CD,C9, 10, 11,1F,01,CD,B1, 10, 11,7141 
536 DATA 54,01,CD,C9, 1, 11,2F,02, CD, Bi, 10,09, DD, 35,00, 20, 76BB 
535 DATA E2,09,3A,61,95,FE, 63, 28, OA,ED, 4B,62,55, 21,08, 90, 7D7E 
549 DATA ED, 42,D0,FD, 21, 1F, 3D,CD, 33, 10, CD, 9A, 1,37, C9, 3E, 84Fb 
545 DATA 02,CD,0E, BC, CD, 4€, 22, 26, 22, 2E, 01, CD, 75, BB, 3€, 18, 8496 
550 DATA CD, 5A,BE, FD, 21,51,55,CD, 33, 10, CD,45,3F, FD, 21, C7, 928F 
555 DATA 34,CD,33, 1D, 34, 43,00, 20, OA, 3E, 18,CD, A, BB, 3E, 01, 97üA 
560 DATA CD,9F,BE, DD, 21,38, 4B, 3A, 61,55, 47, 6€, 01,CD, B7, 1D, 9099 
565 DATA C2,49,22,59,C5,CD,45,3F, CD, A0, 1E, DD,ES, 2,00, 6, ASOA 
570 DATA 06,02,CD, 18, 1E, 3€, 20, CD, 5A,BE, 78, CD, 1A, 1C, 7E, FD, ABSI 
575 DATA ES DD,E1,CD,47, 1€, €, 29, CD, SA, BB, 28,5, 23, 23, 7E,B334 
580 DATA FE, 00,28, 1E,F5, 3€, 4D,CD, 5A,EB,F1,FE, 01, 20, 02, JE, BAZO 
585 DATA 49,FE, 02, 20,02, 3E,6,FE, 03, 20, 02, 3€, 44, CD, 54, BB, BFES 
590 DATA 18,0A,3E,4E,CD, SA, BB, 3E, 4F, CD, SA, BB, EI, 3A,61,55, C6BS 
595 DATA D5,BB,EE, 20,05, 24, 62,55, 18, 06, DD, 6E, 02, DD, bb, 03, CCB7 
&do DATA FD, 21,DC, 3E,CD, 33, 1D, A7, ED, 52, 06,03, CD, 1B, 1E,EB, D3EC 
&ë5 DATA FD, 21, DC, 3€, CD, 33, 1, 3€, 41, CD, SA, BB, 3€, 44, CD, SA, DEAB 
&iô DATA BB,3E, 3A,CD,5A, BB, CD, 19, 1E,FD, 21, DC, 3E, CD, 33, 1D,E2E9 
&15 DATA D1,05,21,10,4F,43,11,10,00,19,10,FD,7E,FE,FF, 28,E90C 
620 DATA 45,E5,FS,CB,7F, 28,32, 3A,43,0C, 20, 20,AF CD, 9F, BB, FObE 
625 DATA 3€, 18,CD,5A,BB, 3€, 24, CD, SA, BE, F1,CB,BF, CD, 12, 1E,FBb8 
630 DATA 3E,18,CD,SA,BB, 3E,01,CD,9F,BE, 18, 16,3€, 24, CD, 5A,FEC3 
635 DATA BB,F1,CB,BF,CD, 12, 1E, 18,09, 2€, 2E,CD, 54, BB, F1, CD, 0723 
649 DATA 12,1E,E1,23, 18, Bb, 3A, 43, 0C,B7, 20,00, CD, 46, 1D, SA, @EFC 
645 DATA BB,GB,FE,FF, CC, 4€, 22, 18, 00,D1,DD,E1,Ci, 00,05, C2, 1436 
&Sé DATA 26,21,3E,00, CD, 9F, BB, 3A,43,0C,B7,C2,AB, 1F, CD, 55, 1AD0 
655 DATA 1F,D0,C3,FC, 29, 3€, 01, CD, DD, 1C, 21, 11,00, 11,00, 00, FEB 
&bô DATA CD,C9, 10, 11,78, 02, CD, B1, 10, DD, 21,E3,3E, 06, 15, DD, 2607 
65 DATA 5E,60,DD,56,01, 21, 11,00, CD, C9, 1,21, 60,01, 11,00, 2AEQ 
670 DATA 06, CD, BD, 1C, DD, 23, DD, 23, 19,E5, C9, CD, 9A, 22, D2, CE, 336A 
675 DATA 1F,AF,32,61,55, 21, 38,56, 22, 62,55, 22,64, 55,C3, 96, 38DC 
&Bo DATA GC, JA, 61,55,FE, 00,37, CB, FD, 21,66, 37, CD, 33, 1D, CD, F7A 
685 DATA 70, 1D,C9,FD, 21,86, 37, CD, 33, 1D, CD, 7C, 10,02, CB, 1F, 46FÔ 
69 DATA FD,21,98,37,CD, 33, 1D,CD, 83, 1D, DA, 2F, 23, FD, 21, BB, 4E69 
695 DATA 37,CD,33,1D,CD, 06, BB,FE, 31,28, 3E,FE, 32, 28, 19,FE, 594F 
Tô DATA 33,C2,CD,22,CD,DF, 1E,DA, CB, 1F,3E,FF, 32, 00, 0C, FD, 5D46 
705 DATA 21,FF,03,FD, 7E, 00, 18, 3, FD, 21, 42,39, CD, 33, 10, 3E,6303 
71è DATA 14,CD,5A,BB, CD, C3, 1D, 28,02, 30, ED, 3D, 32, 10, 60, 32, 6BAA 
715 DATA 0E,00,3E,FF, 32, EA,0B, 18, 1D, 3€, 03, 32,EB, 0B, DD, 21, 6DC4 
726 DATA 17,18,FD,21,6F,3B, CD, 28, 1D, 3€, 14,CD, 5A, BB, CD, 4A,741B 
725 DATA OC, 3A,EC, 03, 18, 0C, 3€, 01, 32,EB, 0B, 32, BE, OB, AF, 32, 7EB7 
736 DATA EC,03,CD,0E, BC, 3A,EA, OB, FE, 60, 20, 06, AF, 32, 10, 0C, 7EBD 
735 DATA 18,15,3A,0D,0C,FE,FF, 20, 0€, FD, 7E, OÙ,FE,FF, CA, AS, B61D 
749 DATA 23,3D,32, 10, 0€, FD, 23, 3A, 19, 6, 3C, CD, CA, 29, 38, JA, BAAF 
745 DATA 78,32, 10,00, CD, 87, 1D,C2, CB, 1F,FD,ES, CD, 17, 1C,FD, 92A4 
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750 DATA Ei,7E, 47, 3A,EC, 03, BG, 20, C9, CD, D2, 2B,FD,E5,E5, CD, 9C72 
755 DATA 42, 1A,E1,FD, 21,40, 3B,CD, 33, 1D, 3A,EC,03, CD, 47, 1E, A2C0 
76 DATA CD,B2, 16,FD,E1, CD, 06, BB, 18,A8,FD, 21,FF, 03, SA,EE, ABCE 
765 DATA ÔB,FE, 03, CA, CB, 1F, 3A,EC, 03, 3C,FE, 03, CA, CE, 1F, 32, B2D2 
776 DATA EC, 03,47, 3A,BE, OB, CE, 27,32, BE, 0B, SA, EA,OB,FE,FF, EA24 
775 DATA 20,06, 3A,0E, 00, 32, 10,00, 78,C3, 3B, 23, FD, 21, 42,39, BELE 
78ÿ DATA CD, C3, 10,02, CB, 1F,32, 10,00, FD, 21,65, 39,CD, C7, 1D,CS42 
785 DATA 28,03, D2,E2,23,30,F5, 3, 19,00, 47,F1,90, CA,CE, 1F, CCA47 
79 DATA DA,CB, 1F,32, 11,00, 3E,02, 32,EB, 08, CD, 17, 1C, 7E,CD, D20D 
795 DATA 0€, BC, ZA, 11,0C, 47,C5,CD, 17, 1C, CD,D2, 2B,E5, 21,44, DB4E 
806 DATA C1,22,F6,0B,E1,CD,B2, 16,CD, 19, BD, GE, 01, 06,FF, 87, E0 18 
805 DATA 19,FD,0D,20,F8, CD, 1B,BE,FE, F1, 20, 0D, 3€, 05,47, 34,E6CB 
819 DATA 25,24,FE,FB, 28, 15,80, 18,0F,FE, F0, 20,0€, 3E, 05, 47, EC97 
815 DATA 3A,25,24,FE, 01, 28, 04,90, 32,25, 24,CD, C2, 29, C1, 10,F1D9 
820 DATA B5,CD,B7, 1D,C2, CB, 1F, 34, 11,00, 47, 3A, 19,00, 90, 32,F791 
825 DATA 19,00, 18,A2, 21,46, 38, 22, 96,24, 21,60, 38, 22, C6, 24, FEA3 
830 DATA 21,79,38,22,9€, 24,AF,232, CF, 24,C9, CD, D, 24, 3A, 61, 01EF 
835 DATA 55,87, CA,4F, 1B,FD, 21,48, 38,CD, 33, 10, CD, 7C, 1D, DO, 0929 
840 DATA 09,00, 00,FD, 21,79, 38, CD, 33, 1D,CD, C7, 1D, 28,42, 30, 0E17 
845 DATA F2,32, 10,00, 3E,05,32,EB, GB, CD, 17, 10, 7€, 32,0, 03, 1361 
850 DATA ES, CD, CE, BC,E1, CD, D2, 28, CD, B2, 16,FD, 21, 66, 38, CD, 1CAŸ 
855 DATA 33,1, CD, 7C, 10, D6, 00,3, C9, 32, 79,00, CD, ES, 2E, 22, 2283 
860 DATA 92,00, 2A,FB,0B, 3A, 10, GC, CD, CA, 29,28, 15,E5, ED, 4E, 285€ 
865 DATA 02,80, 09,E5,E5, 2A, 62,55, C1, A7,ED,42,E5,C1,E1,D1,310F 
876 DATA ED, B0, 2, 62,55,ED, 48,02, 0C,A7,ED, 42, 22, 62,55, 3, 37EC 
875 DATA EC,OB,FE, 00, C0, CD, Cé, 2B,E5,D1,23,23,E5,E5, 21, 36, 4940 
880 DATA 56,C1,A7,ED, 42,65, C1,E1,D5,ED, B0, DD, E1, SA, 10,00, 446 
885 DATA 5F,34,61,55,47, 3D, 22, 61,55, C8, 78,93, 28, 07,ED, 4B, 503B 
896 DATA 92,00, CD, B2, 1E,CD,9E, 1B,E5,D1,01, OA, 00,09,E5,E5, 5700 
895 DATA 21,20,4F,C1,A7,ED,42,E5, C1,E1,ED, B, CD, AC, 1E,ES, 60C4 
900 DATA D1,01,10,00,09,E5,E5, 21, 60,55, C1,A7,ED, 42,E5, C1, 68BC 
995 DATA E1,ED,B6, 37,09, FD, 21,41, 49, CD, 33, 1D,CD,83, 1D,D0,7103 
910 DATA 3E,C9,32, 79,00, 32,35, 1C, FD, 21, 6A, 49, CD, 33, 10, CD, 76F6 
915 DATA C7, 1D,FE, 00, 28,F9,32, 10, 0C,CD, AC, 1B, 1E,01,7E,FE, 7074 
920 DATA FF,C8,CB,EF,47,4F,7B,CD,E3, ÎC, 1C, 23, 18,F6, 3E, C9, 9F2 
925 DATA 32,CF, 24, 32,79, 00, 21,88, 39, 22,9, 24,21, AE, 38, 22, BAED 
930 DATA Cé, 24,21,96,38, 22,90, 24, 3E, CD, 21, 6€, 25, 32,99, 24, 901A 
935 DATA 22,94, 24,CD,87, 24,D0,AF, 32,EB, 0B, 3C, 32, EC, OB, 3A, 96B8 
940 DATA EF,03,32,FF,08,47, CD, 11, BC, 38,06, 28,02, CB, 20, CB, CES 
945 DATA 29, CE, 29, 78,32, C9,08,F5,FD, 21, SA,3E, CD, 33, 1D,FD,A413 
950 DATA 21,5D,3E, CD, 33, 1D,F1,CD, 12, 1E, SA,EE, 03, 32,FE, 0B, AA4O 
955 DATA 32,C8,0B,F5,FD, 21,4F,3€,CD,33, 1D,F1, CD, 12, 1E, CD, B1BD 
960 DATA 5,28, 22,FC,0B, FD, 21,68, 3€, CD, 33, 1D,CD, 83, 10, D2, BBE9 
965 DATA Eb, 00, FD, 21,81, 3€,CD, 33, 10, CD, DF, 10,47, 3A,CB, 0B, BFF2 
970 DATA BB, 28, 02, 30,ED, 78,32, C8, 0B, FD, 21,90,3E, CD, 33, 1D, CbB4 
975 DATA CD,DF, 1D,47,3A,C9,0B, B8, 28,02, 30,ED, 78,32, C9,0B,CDIF 
980 DATA C3,E6, OC, FD, 21, C4, 38, CD, 33, 10, CD, 06, BB,FE, 31, 28, D4FO 
985 DATA OC, FE, 32, CA, A6, 28,FE, 33, CA, 35, 27, 18, ED, CD, CE, 29, DCDé 
990 DATA D8,3A,61,55, 30, 32,61,55, 32, 10, 0C, DD, 21, 04,02, CD, E1E7 
995 DATA 78,17, CD, Cé, 28, ED, 5B, 62,55, 73, 23,72, 2A,FAÔE, 19,886 
1900 DATA 22,62,55,21,F0,03,ED, 4B,FA GB, ED, B0, C9, DD, 21,6h,FOLE 
1945 DATA 02,CD, 78, 17,2A,FC,0E, ED, 48, FA, 0B, ED, 42, 28, 25, 30,F499 
1919 DATA 2A,E5,C5, CD, D2, 26, C1,E1,D8, CD, C7, BD, 22, 02,00, ZA, FF4i 
1915 DATA 19,00, CD, CA, 29, 20,08, 24,62, 55, ED, 4B, 02,00,09, 18,03AF 
1929 DATA 1F,CD,D5, 27,ED,5B, 00, 00, C3, 90, 26, 22,02, 0C, 34, 10, BEA 
1925 DATA 00, CD, CA, 29, 29, 1F, 2A, 62,55, ED, 4B, 02, 6C, A7,ED, 42, 0EF2 
1936 DATA 22,62,55, CD, Cb, 28,E5, DD, E1, DD, 23, DD, 23, DD, 75,00, 177E 
1935 DATA DD, 74,01, 18,CF, 2A,00, 0C, 00, 00, 00, 00, 00,00, 00, 09, 19ED 


LU OK4##4 sadat4 #44 
18 4=29001:F=32000:L=106:HHILE AË=F: FOR 4=Â TO A+IS:READ C$:k= 


VAL ("R"4CS) :S=GHK 4055364 (S+É5 32767): IF ASF THEN POKE AK 
20 NEXT:READ D$:T=VAL("R "ADS: IF TÉ2S THEN PRINT CHR$ (7); "Erre 
ur ligne";L:END ELSE L=L+5:MEND: PRINT "data 4 termine": RUN"sqda 


Eu 
ce) 


190 DATA ED, 4B,FA,GE, 09, CD, Eb, 24, JA, 19,00, 3C, CD, C9, 2B,E5, 0755 
195 DATA DD,E1, 34, 10,00, 47, 3A, 61,55, 90, ED, 4B, 02, OC, CD, B2, GDFS 
119 DATA 1E,C3, DD, 26, CD, CE, 20, 08,FD,21,17,37,CD, 35, D, 2À, 192€ 
115 DATA 19,00, CD, 12, 1E,FD, 21, 28,29, CD, 33, 1D,CD,DF, 10, CD, 187C 
126 DATA CA, 29,38,F1, 78,32, 10,00, CD,9E, 1E,E5, 3À, 61,55, CD, 2289 
125 DATA A1, 18, 01,08, 00, 09, 22,F4,0E, 09, 22,04, DC, ZA,F4,0E, 2SDE 
136 DATA D1,47,ED,92,E5, C1, 2A,F4,08, 2B,ED, 58, 04, 00, 1B,ED, 2DEF 
135 DATA BB,CD, AC, iB,ES, SA, 61,55,CD,AF, 1E, 61, 19,00, 09, 22, 33E3 
146 DATA F4,68,09,22, 04,00, 2A,F4,0E,D1,47,ED,52,E5, C1, 2A, JACD 
145 DATA F4,08,2B,ED,5E, 04, 0C, BED, E8, DD, 21, 07,02, CD, 7E, 416b 
154 DATA 17, 2A,FA0E, 22,02, 00, ED, 58, 62,55, 19, 22,62,55, 2€, 4608 
155 DATA 02,32,EB,0E, 3A, 19,00, CD,E1,27,CD, 17, 1C,ED,5B,FB, 4CAb 
1éô DATA 0B,C3,90, 26, ED,58, 62,55, 19, 22, 62,55, 3, 10, 00, 3C, 5183 
185 DATA CD, C9, 28,65, 4€, 23, 46, EB,ES, ED, 42,E5, 01,63, E1, ED, 5EG4 
170 DATA 5E,62,55,ED,B8,DD,E1, SA,ER, OB,FE, 02, 20, 2F, CD, Cé, 6460 
175 DATA 2B,ES,ES, 34, 61,95, CD, C9, 28, Di,E5, 47,0, 52,5, Ci, 6DF5 
186 DATA 03,03,E1,23,E9,D1, 13, 13,ED,B8,32, 61,55, 30, 32, 61, 7437 
185 DATA 55, A, 10,00, 3D, DD, Et, DD, 23, DD, 23, 18,03, 34, 10, 00, 794E 
194 DATA 47, 3A,61,95,90,ED, 58, 02, 40, CD, CA, 1E, C9, 34, 61,55, 7FD9 
195 DATA FE, O0, CA,4F,1E,FD, 21,58, 34, CD, 33, 1D, CD, 83, 10, D2,8711 
266 DATA 80,28,FD, 21,78, 34,CD, 33, 1D,CD, 4A, OC, AF, 32, 10, 0C, BCC3 
245 DATA CD,C?, 29, CD, CA, 29,38, 17,78,CD, 14, 1C, 7,47, 3A,EC, 9373 
216 DATA 43,88, 28, EC, CD, D2, 2B, CD, Dé, 24, JA, 16,00, 18,E4, FD, 9B5C 
215 DATA 21,90, 34, CD, 33, 10, CD, 83, 10, 30,28, CD, 6D, 24,3E, 01, A10F 
226 DATA 32, 16,00, CD, CA, 29, DA, E7, 28, CD, E7, D, C2, 87, 28, 7E, AG93 
225 DATA CD, AA, 24, 30,05, 34, 10,00, 18,69, 34, 41,55, 87, CA, 4F, AE7A 
235 DATA 1B,CD, C2, 29, 18,DD,FD, 21,29,35,CD,33, 10, 3E, 01, 32, H447 
235 DATA 10, 0C,32,EA GB, CD, LA, 1C, 7, 32,0€,0C, DD, 47, LE, CD, 8982 
246 DATA C2, 29, CD, CA, 29, DA, 07,29, 7B, CD, 1A, 10, 7E, 47, 3A, 0€, BF92 
245 DATA QC, B8, 28,EB,FD, 21, 46,35, CD, 32, 10, 38, 10, 0C,C5, CD, Ca27 
256 DATA 12,1E,FD, 21, 74,35,CD, 33, 1D,F1,CD,47, LE, AF,32,EA, CD2F 
255 DATA OB, CD, 46, 1D, 18,09, 34, 61,55,FE, 00, CA,4F, 1E,FD, 21,D3BE 
260 DATA 92,35,0D, 33, 1D, CD, 9A, 1D, SA,EA, GB, FE, 01,28, 03, C3, DAGF 
265 DATA CB, 1F,FD, 21,40,35, CD, 33, 1, 3E, 01, 32, 10,00, DD, 21, DF74 
270 DATA 20,4F,21,F0, 02,04, 0F,CS, DD, 7E, 0,6, 1F,77, DD, 23,ESC8 
275 DATA 23,19,F5,C1,DD, 21, 30, 4F,CD, C2, 29, CD, CA, 29,36, 46, ED24 
280 DATA 21,F4,03, 06, 0F,GE, 01, DD, 7E, 06, Eb, 1F,BE, 28, 2A, 34, F 206 
285 DATA E9, 08,89, 28, 24,E5,C5,FD, 21, 66,35, CD,33, 1, 34, 10,F8D9 
299 DATA QC, CD, 12, LE, FD, 21,D4,35, CD, 33, 10, C1,C5, 79,E6, ÎF, ZA 
295 DATA CD, 12,1E,C1,E1,AF, 32,EA, GB, 23, DD, 23,00, CD, 46, 1D,06FE 
306 DATA 10,C5,DD,23, 18,82, FD, 21,92,35,CD, 33, 1D, ZA, EA, 08, ODCE 
305 DATA FE,01,28,10,FD, 21,06, 36, CD, 33, 1D,CD,83, 10,02, CE, 1486 
310 DATA 1F,C3,D0,29,FD, 21,EA, 25, CD, 33, 1D, CD, 9A, D, C3, DÔ, 1CD2 
315 DATA 29,34, 19,00, 30, 32, 10,00, C9,5F, 3A,61,95,BE, C9, AF, 2224 
326 DATA 32,EB,4E, CD,EB, 20, FD, 21,E5, 36, CD, 33, 1D,CD, 83, 1, 29E6 
325 DATA D2,CE, 1F, JA,EC, 03,32, 40,55, 3A,61,55,F5, CE, 27, 06, 30BF 
320 DATA 00,4F,21,D4,00, A7,ED, 42,5, 21,64,55,69,EB, 2A, 2, 36EB 
335 DATA 95,ED,4B,64,55,C5, 47,ED, 42,E5,C1,E1,ED, B,C1,F1,419F 
340 DATA 30, DD, 21,62,55,CD, B2, 1E, 21, 20,4F, ED, 58, 62,55, 7E, 4B3A 
345 DATA FE,FF,28,07,E6, 1F, 12,23, 13,18,F4, 12,CD, 91, 2A,AF, 4FG8 
350 DATA 32,EA,0B, CD, 14,BC, C3, 82, 20, 3E,FF, 32, 60,55, 34, 61, 562€ 
355 DATA 55,F5,01, 10,00, 21,20, 4F,ED,SE, 62,55,E5,D5,FS, 18, SCDF 
“360 DATA FE,FF, 28,05, 77,23, 13, 18,F6,F1,D1,E1,09, 2D, 26, EC, 6489 


365 DATA F1,F5,06, 08, CB, 27,4F, 21,04, 09, À7,ED,42,E5,C1, C5, 6DIC 
376 DATA 24,62,55,E5,E5,99,EB,E1,ED, dB, 64,55, A7, ED, 42,E5, 7648 
375 DATA C1,E1,28, 18, ED, 8, Di,F 1,30, DD, 21,62,55,C3,CA, 1E, 7F33 
386 DATA CD, 14,BC,FD, 21,28, 36, CD, 33, 1D, 26, 16, 2€, 05, CD, 75,851D 
385 DATA BE, 34, 61,95, CD, 12, 1E, 26, 16, 2E,07,CD, 75, BB, 3, 60, BACD 
390 DATA 55, CD, 12, 16,26, 11,2E, 13, CD, 75, BE, 2A, 62,55, 11, 00, 8FEè 
395 DATA 00, 7E,FE,FF, 28, 10,23, 1C,E5,CB,BF, CD, 12, 1E,E1, 3€, 9703 
460 DATA 20, CD, A, BB, 18,EE, 26, 16, 2E, 09, CD, 75,BE, 2A, 62, 55, 966 
465 DATA 19,01,60,55,47,ED, 42, CD, 19, 1E, 26, 1C, 2€, GC, CD, 75, A2CD 
419 DATA BE, 3A,61,55,11,00,00,0€, 00, 47, FD, 21,64,55,FD, 66, ABLE 
415 DATA 01,FD,6E, 00,23, 23, 7E,FE, 00, 28, 0F,FE, 01, 20,01, 1C, ACE9 
420 DATA FE, 02, 20,01,0C,FE, 03, 20,01, 14,FD, 23, FD, 23, 10, DE, B244 
425 DATA 79,CD, 12, 1E,26, 10, 26, 0€, CD, 75, BE, 7B,CD, 12, LE, 26, 8709 
3 DATA 1C,2E, 16,CD,75,BB, 7A, CD, 12, 1E, CD, 42, 28, CD, 9A, 1D, BEUS 
35 DATA C9,11,09,00,21,5C,00,E5,CD, C9, 10, 21,74,00,E5, CD, C4AS 
446 DATA 1,10, 21,8B,00,E5, CD, C9, 1C, 21,E7,00,E5, CD, B1, IC, CC3A 
445 DATA 21,FE,00,E5,CD, C9, 10, 21,55,01,E5,CD, Bi, 1C, 11, Db,D3CA 
456 DATA 00,E1,CD,C9, 1C,E1,CD, Bi, 10, 11,EF,00,E1,CD,C9, 1C, DCGE 
455 DATA E1,CD,B1,10,11,ED,01,E1,CD,C9, 1C,E1,CD, Bi, 10, DD,ESD0 
40 DATA 21,0D,3F,06, DA, 11,09, 00, DD, 6E, 60, DD, 66, 01, CD, C9, EABC 
465 DATA 10, DD, 23, DD,23,D0,5E, 06, 00,56, 01, DD, 23, DD, 23, CD,F1E4 
470 DATA B1,10,19,E1,21,05,00, 16,00, 3A,EF, 43,47, JA,EE, 03, F67C 
475 DATA 5F,19,10,FD,C9, 34, 19,00, 47,21,62,55,23, 23,10, FC, FE9i 
48 DATA C9,23,11,ED,03, 01,03, 00, ED, Bû, 22, Dé, 0B, C9, FD, 21, 0209 
485 DATA A4, 29, CD, 33, 1D, DD, 21, 7D, BE, DD, 6€, 00, DD, 6b, 01, 7E, 0949 
499 DATA ES, Cb,41,CD,SA,BE, FD, 21,C3,39,CD,33, 1D, CD, 83, 1D, 11EB 
495 DATA E1,30,0D,7E,FE, 01,20, 03,AF, 18,02,3E, 01,77, 18, CE, 16DE 
500 DATA 3E,07,CD,0E, EC, 11,08, 90, CD, 98, EC, FD, 21,DC, 29, CD, 1EBF 
505 DATA 33, 1D,CD,8%, 1D,D8,FD, 21,02, 34, CD, 33, 10, CD, 06, BE, 252 
516 DATA 18,AC, CD, 9,22, D2, CE, 1F,3E, 01,32, EA 08, 21,38, 48, 2B3C 
515 DATA 54,50, 13,34, 20, 01,EB, 03,ED, 86, 21,20, 4F, 54,50, 13, 3033 
520 DATA 26,FF,01,40, 06, ED, H9, SA,EA,OB,FE, 03, 28, 22,FD, 21, 36E4 
525 DATA 36, 3A,CD, 33, 1D,CD, 7C, 1D,D2,CB, 1F, CD, DF, 2B,FD, 21, SEB2 
530 DATA 48, 3A,CD,33, 1D,CD,83, 10,38, 1C, 21,60,55,C3, CF, 20, 4476 
535 DATA FD, 21,E4,40,CD, 33, 10, CD,83, 10,02, CE, 1F,CD,DF, 28, 4CD5 
sdb DATA 21,60,C0,C3, C6, 20, 21,38, 4B,C3, CF, 20, 3A,61,55,FE, S3BE 
545 DATA 00, CA,4F, 18, FD, 21,19, 3E,CD, 33, 1D, CD, 7C, 10,02, CE, 5478 
550 DATA 1F,CD,DF, 28, 2, 60,95,FE,FF, 28,05, 21,60,55, 18, 0€, 6083 
595 DATA 21,38,4B, 18,09, 22,F4,0B,FD, 21,FE, 49, 18,07,22,F4, 65FA 
560 DATA ÔB,FD, 21,66, 3A,CD, 33, D, CD, 6, 1D, d6, OC, CS, CD, 65, BCD 
565 DATA 1E,C1,21,14,00, 11,08, 90, 24, EA,GB,FE, OÙ, 20, 20, CD, 715F 
575 DATA 8C, BC, D2,55, 1B,ED,4E,F4,08,C5, ZA, 62,55, A7, ED, 42, 7990 
575 DATA JA, 60,55,FE,FF, 28, 04,01, 10, 00,09, EB,E1, 3€. 02, CD, 7FA7 
580 DATA 98, EC, D2,55, 1B,CD,8F, BC, C3, CE, 1F, CD, 77, BC, D2, 55, 8929 
585 DATA 1B,24,F4,08, A7, ED, 52, 28, 10, 3A,EA,ÔB,FE, 03, 28, dé, BEF4 
596 DATA FD, 21,8E, SA, 18,04,FD,21,23,41,CD,33, ID, CD, 7A, EC, 9594 
595 DATA CD,94,1D,C3,CB, 1F, 2A,EAOB,FE, 03,05, 20, 10,FD, 21, 9D1E 
bo DATA 6A,ZE, CD, 33, 1D, CD, 4A, OC, 3A,EC, 03, CD, DE, BC,E1, CD, A471 
485 DATA 83, BC, D2,55, 1B, CD, 7A, EC, JA,EA, B,FE, 03, CA, D2, 2F , ACFO 
&io DATA FD, 21,BC, A, CD, 33, 1D, 3A,60,55,FE,FF, 20,06,FD, 21, 8451 
615 DATA FF,2,18,04,FD, 21,08, 3B, CD, 33, 10,00, 21, 18,26, FD, BASF 
426 DATA 21,83, 3D,CD, 28, 1D,21,08, 90, ED, 4B, 62,55, A7, ED, 42,C119 
825 DATA CD, 19, 1E,CD, 98, 1D,21, 14,00, 11,51,55,01,0D, 06, ED, C591 
436 DATA B0,21,5E,55,3E,FF, 77, 34,60,55,FE,FF,CA, C9, 2D, CD, CE42 
835 DATA 14,BC,CD, 91,24, CD, 3, 2A,CD,EB, 20, 3A,EA,B,FE, 62, DSCF 
440 DATA CA,92,2E,C3, CE, 1F,3A,61,55,32, 10, 0C,FD,21,28,3E, DBCS 
645 DATA CD, 33, 1D,CD, 70, 10,02, CE, 1F,21,3D,3F, 06, 02, 11,08, E0C2 
450 DATA 9D,CD, 80, BC, D2,55, 1E, 0€, A, 3A,61,55,5F,CD,F7, IA,E7FE 
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655 DATA 21,38, 4B,ED,SB, BE, 08, 3E, 62, CD, 98, BC, 02,55, 1E, CD,EF1D 
bo DATA BF, EC, 21,3F,2F, 06,02, 11,08, 9D, CD, BC, EC, D2,55, 1E,FS1C 
&&S DATA DE, 10, 3A,61,55,5F,CD,F7, 14,21, 20,4F,ED, SB,BE, ÔB,FEGS 
870 DATA 3E,02,CD,98, BC, 2,55, 1B,CD,8F, BC, 21,41,23F,06, 02,0167 
875 DATA 11,08,90,CD,8C, BC. 02,55, 18, 24, 61,55,CE, 27, lé, 00, 07GE 
bëô DATA 5F,21,64,55,3E, 02, CD, 98, BC, D2,55, 18, CD, 8, BC, 21, dEBS 
885 DATA 43,3F,06,02, 11,08, 9D,CD,8C, BC, 02,55, 1B, 24,62, 55, 13FB 
&96 DATA ED,4B,64,55,A7,ED, 42, 22, D8,0B,EB, 21,38,56, 3€, 02, IAA 
895 DATA CD, 98,80, 02,55, 1B,CD, BF, EC, 3€, 02, 32,EA, 0B, C3, 58, 229€ 
T0 DATA 2C,AF,32,EA,0B, 34,61,95,F5, 47, 3A, 10,00, 89, 32, 61, 2835 
765 DATA 55,F1,232, 10,00, 28,62,55,E5,E5, ED, 4B,64,55,A7, ED, 2FF9 
716 DATA 42,22, D6,0B,E1,ED, 48, DB, 0E,69, 22,62,55,CD, CE, 26, 24D4 
715 DATA Et,22,62,55, DA, CE, 1F, 21, 3D,3F,06, 02, 11,08, 90, CD, 3C7A 
726 DATA 77,8C,D2,55, 18, 3A, 19,60, 4F, LE, dA, CD, F7, 1A, 21,38, 41F3 
725 DATA 4B,ED,4B,BB,08, 09, CD, 83, BC, D2,55, 1B, CD, 7A, EC, 21,49E7 
26 DATA 3F,23F,06,02, 11,08, 9D, CD, 77, BC, D2,55, LE, ZA, 19, 00, 4EBE 
735 DATA 4F,1E,14,CD,F7, 14,21, 20, 4F,ED, 4B,BB,08, 09, CD, 83, 54CD 
746 DATA EC, D2,55, 18, CD, 7A,BC, 21,41, 3F, 06,02, 11,08, 9D, CD, SAFA 
745 DATA 77,8C,D2,55, 18, ZA, 19,00, CB, 27, 06, 00, 4F,21,64,55,5FE4 
750 DATA 09,E5,CD, 83, EC, D2,55, 18, CD, 7A, EC, DD, E1, 3, 19, 00, 4839 
755 DATA 47,3A,61,55,90, ED, 5B, Dé, 0B, CD, CA, 1E, 21,43, 3F, 06, 6EB7 
760 DATA 02, 11,08, 90, CD, 77,8C,D2,55, LE, 2A, 62,55, CD,B3, BC, 754E 
785 DATA 02,55, 18, CD, 7A, BC, 24, 42,55, ED, 48, DB, 0B, 49, 22, 62, 7C3C 
770 DATA 55,C3,CB, 1F,FD, 21,04, 2F, CD, 33, 1D,CD, 7C, D, D, CB, 848F 
775 DATA 1F,FD;21, EB,3F,CD,33, 1D,CD, C7, 1D,FE, 09, 28,F2, 32, BCGE 
786 DATA 19,60,FD,21,13,40,CD, 33, 1D,CD, 6A, 10, 06,04, CD, 85, 714€ 
785 DATA 1E,CD,9E, 1B,EE, 21, 1A,00, 01, 0A, 00, ED, ED, FD, 21, 25,970F 
796 DATA 49,CD,33, 1D,CD, 83, 1D,38,C8,C3, CB, 1F, CD, CB, 26, DA, 9F18 
795 DATA CB, 1F,FD, 21,96, 49,CD, 33, 1, 3E, 03, 32,EA, 08, C3, 58,596 
89e DATA 2C,CD,65, 00, 21,C8, 06, 22, ED, 0, 22,EF,GB, CD, 11, EC, ABES 
895 DATA 32,60, 03,0€,5E, 46, 44,FE, 00, 20, 17,3E,05,32, A0, 32, BC 
816 DATA 3E,10,32,9F,232,3E, 20,32, A1,32, E,04, DE, 90, 06, 2C, BSE2 
815 DATA 18,29,FE, 01,20, 15,3€,04, 32, A0, 32, 3€, 10,32, A1, 32, B7C0 
820 DATA 3E,04,32,9F,32,CE, 21, 1E,02, 18, 10, 1E,01,3E, 02, 32, BACA 
825 DATA 9F,32,3C, 32,0, 32,3E, 08, 32, A1, 32,78, 32, BE, 08, 79,C615 
830 DATA 32,09,0B, 22,EF,03, 78, CB, 27,32, C6, 0B, 32,EE, 03, 3E, CoûF 
35 DATA 61, CD,59, EC, CD, 67, 31, CD, 06,BE,FS,CD, 7, 31,F1,FE, CF2E 
840 DATA 12,CA,CE, 1F,FE, OD,CA,E7, 31,FE,FÜ, CA, D2, 30,FE, F1, DTEA 
845 DATA CA,E7,230,FE,F3,CA,F9,30,FE, F2, CA, OF, 31,FE, F5, 28,E464 
850 DATA 1A,FE,F4,28,24,FE,F7,28,41,FE,F6, 28,2€,E6, DF,FE, EE27 
855 DATA 43, CA, 22, 31,FE, 50, CA, 88, 32, 18,89, SA,EE, 03, Dé, 02,F52D 
86û DATA FE, 02, 28, B0,32,EE, 03, 18, AB, SA,EE, 03, Cé, 02,47, JA, FESF 
865 DATA CB, 0B, BB, 38,9F,78,32,EE, 03, 18,99, SA,BE, 0B, 47, 3A,0191 
870 DATA EF,03,90, 28, 8F,32,EF,03, 18,8A, ZA, EE, GE, 47, ZA, EF, 807 
875 DATA 93,80,4F, 34, C9, 08, E9, DA, 45, 39,79, 32,EF, 03, C3, 45, 0E70 
880 DATA 20,2A,EF,08,01,02,00, 11,90,01,09, ZA,EE, 03, CD, Dé, 1360 
885 DATA 31,D2,45,30, 18,00, 2A,EF,0B, 01,02, 00, A7,ED, 42, DA, 1803 
899 DATA 45,30,22,EF,0B,C3,45, 30, 2A,ED, 08, ED, 4, BE, ÔE, 11, 1EDO 
895 DATA 80,02,09,3A,EF, 03, CD, Dé, 31,02, 45,30, 18, 0D, 2A, ED, Z4DE 
900 DATA 6B,ED, 4B, BE, 0B, A7, ED, 42, DA, 45,30, 22,ED,0B, C3, 45, 2C31 
965 DATA 20,2A,ED,0E, 3A, A0, 32, 47,E5,CE, 20, 30,01, 24,CE, 1D,31FF 
910 DATA 30,04,E1,28, 18,EE,19,F1,E1,22,ED,0B, 2A,EF, DE, ZA, 389F 
915 DATA EE,03, 06,00, 4F, 09, 06, 04,E5,CE, 3C, 30,01, 24, CF, ID, 3021 
926 DATA 30,64,E1,23,18,F0,10,F1,E1,28, ZA,EE, 03, CD, Ed, 31, 4477 
25 DATA 22,EF,0B,C3,45, 30, 2A,ED, 0B, 11,7F,02,3A,EF,03, CD, 4478 
36 DATA Dé, 31,38, 00, 21, 7F,02, JA,EF, 03, CD,E0, 31, 22, ED, 0B, 5089 
935 DATA ES, 2A,EF,6E, 11,8F,01,3A,EE, 03, CD, Dé, 31,D1,38, 60, 5747 
940 DATA 21,8F,01,3A,EE,03,CD,E6, 31, 22,EF, 0B,E5,D5, CD, C9, 5F6D 
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945 DATA 1C,21,60,66,11,00,06,3A,EF,63,5F,CD,ED,1C,11,09, &2FD 
950 DATA 46, 3A,EE, GS LF, CD, BD, 1C,D1,Ei,CD,C9,4C,21,64,04,69C2 


5 DATA 11,60,09,ZA,EE, 63, 6F, CD, ED, 1C, 21,00,00, ZA,EF, 03, 6E6Ô 
960 DATA SF, CD, ED, 1C,C9,E5,06, 00, 4F,09, A7, ED, 52,E1, C9, dé, 767 
965 DATA 00,4F,A7,ED,42,09,AF, 32,ED,03, CD, 59, EC, ZA,EF, 03, 7DD4 
970 DATA CB, 3F,CB, 3F,CB, 3F, 30, 32,EF,08, 3A,EE, 03,06, 00, 4F, B3D2 
975 DATA 2A,EF,08,09,22,EF,0E, CE, 3F, 30, 22,EE, 02, 3E, C9, 22, 8980 
980 DATA 8D,16,CD,61,16,47,AF, 32, 8D, 16, ZA, EF, OB,ED, 58, ED, 9C8 
985 DATA 0B,CD, 1E, 14,22,F4,0B,E5, CD, 38, 1A,E1, SA,EE, 63, 4F,9755 
990 DATA ZASEF,03,47,7E,FD, 77,00, FD, 23,23, 10,F7,0D, 28, OA, 9D4Z 
995 DATA 2A,F4,0B,E5, CD, 38, 14,E1, 18,E6,FD, 22, 62,55, 3E,FF, A562 
1906 DATA 22,E0,08, 2E, 50, 22,EF,03,3E, 08,32, EE, 03, 21.09, C0, AAE7 
1985 DATA 22,F6,98,CD,EB, 18,D0, 21,01,01,CD,7F,17,AF,22,EC.B174 
1919 DATA 0B,32,EA,0B,FD, 21,48, 41,CD, 33. 1D,CD, 83, 1D,02,CE, BE7A 
1915 DATA 1F,CD, CO, 18,C3,D5,2F, ZA, DE, ÔB, DD, 21,E9,0E, 20, DD, C623 
iG2ÿ DATA BE, 06,38, 01,4F,22,DE, 08, CD, DD, 1C, C3,45, 26. 01,00, C5F3 
1925 DATA 0ù,00,04, 02, 1F,GE, 03, 18, 20,47,45,4€, 45,52, 41,54, CB67 
1839 DATA 45,55,52, 29,44,45, 20,53, 50,52, 49,54,45,53, 29, 2€, CC94 
1975 DATA 29,43, 6F, 70,2E, 20, 4D, 2E, 06, 00, 00, 00, 09,00, 00, 09, CESF 
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16 A=32901:F=35000:L=1606:HHILE A€=F:FÛR Az TD A+IS:READ Céik= 
VAL ER ACE) 2 GEGHK +655 56% (6+:72767): IF AîzF THEN FOKE AK 

29 NEXT:READ D$:T=VAL("E'"4DS):IF TES THEN PRINT CHR$(7);"Erre 
ur ligne"s;L:END ELSE L=L+5:HEND: PRINT" data 5 termine‘: RUN"sqga 
té" 

166 DATA 4D,41,49,47,52,4F,54,20,2E,206,4A,75,69,6E, 20,31,0468 

195 DATA 39,38,37,26,18,1F,08,06,18,98,30,9D, 18, 26,45, 48,473A 

116 DATA 4i,52,47,45,52, 20,55, 4€,45,24,54,41,42,4C, 45, 1F,9B5A 

115 DATA 2C,06,18,58,31,5D, 18, 24, 40,49,93,54,45,52,26, 99, 0F4D 

120 DATA 4E,45,26,54,41,42,40C,45,1F,0A,08,18,5B,32,5D,18,1273 

125 DATA 26,43,52,45,45,92, 26,55, 4€,45,20,54,41,42,4C, 45, 1494 

136 DATA 1F,20,08,18,58,33,9D,18,26,43,4F,4D,56,4C,45,54,1A3& 

135 DATA 45,52,20,55,4€,45,24,54,41,42,4C,45,1F,6A,04, 18, 1DAB 

149 DATA 5B,34,5D,18, 26,41,46,46,49,43,48,45,52,26,4C,45,21B5 

145 DATA 53,29,53,50,92,49,54,45,53,1F,2C, 64, 18,9B,35, D, 25AC 

159 DATA 18,26,53,95,94,56,45,52,56,4F,53,49,54,49,4F,4E, ZA3E 

1935 DATA 29,53,56,52,49,54,45,53,1F, 04,06€, 18,5B,36, 50, 18, 2DD5 

168 DATA 29,53,55,050,96,92,49,4D,45,52,20,55,4€,20,53,96,324% 

165 DATA 52,49,54,45,1F,2C,6C, 18,58B,37,9D, 18,29, 4D,4F,44,35EC 

176 DATA 49,46,49,45,92, 20,55, 4E, 26,93, 00,92,49,54,45, 1F,3A34 

175 DATA 6A,0E,18,5B,36, 90, 18, 26,53,41,55,56, 45,52, 26,95, 3DD7 

18ÿ DATA 4E,45,26,54,41,42,4C,45,1F,2C,6E, 18,58,39,5D, 18,416C 

185 DATA 29,50,55,92,47,45,92, 20,95,4€,45,20,54,41,42, 4C, 45AC 

190 DATA 45,1F,04,106,18,58,41,5D,18,26,43,4F,4€,43,41,54,492E 
195 DATA 45,4€,41,54,49,4F,4E,20,44,45,20,54,41,42,4C, 45, 4D6Â 

266 DATA 1F,20,10,18,58, 42,50, 18,20,92,45,54,4F,95,92,29,5116 
265 DATA 41,59,26,42,41,93,49,43,1F,04,12,18,5B, 43,50, 18,548E 
216 DATA 26,43,41,50,54,55,92, 45, 20,99, 4E,26,53,96,52,49,5BE3 
215 DATA 54,45,1F,2C,12,18,58E,44,5D, 18,24,52,45,4E,4F, 4D, 5CA6 
220 DATA 4D,45,92,2,95,4E,20,55,90,92,49,54,45,67,FF, 1F, 6169 
225 DATA 19,16,43,4F,4€,53,45,52,96, 45,52, 20,99, 4€, 26,53, 6985 
236 DATA 45,55, 4C,20,4D,4F,44,45,20,3F,20,28,4F,2F,4E,29,694C 
235 DATA 67,FF,1F,19,18,4E,95, 40, 45,52,4F,26, 44,55, 26, 4D, 6D9E 


249 DATA 4F,44,45, 20,41, 


20,43,4F,4E,53,45,52,56, 45, 52, 20, 71CE 
245 DATA 34,20,FF,1F,15,16,45,4C,49,4D,49,4€,41,54,49,4F,76SC 
250 DATA 4E,26,44,45, 26,53, 50,52, 49,54,45,53, 20,55, 4€, 20, 7480 
255 DATA 41,20,55, 4€, 20, 3F, 20, 28, 4F,2F, dE, 29, 07,FF,4E, 4F,7ECS 
265 DATA 4D, 29,20, 26, 20, 20, 20,20, 20,4E,55, 4D, 2€, 4D, 4F, 44, B26E 
265 DATA 45,20,4F,43,54,55, 2€, 20,49, 4,48, 20,50, 45, 4€, 20, BôC 


270 DATA 3A,36,31,2D, 30, 32, 20, 30,23, 20, 20, 34,20, 36,35, 20, 8916 
275 DATA 30,26, 2D, 30,37, 20, 30,38, 2D, 20,39, 20,31, 30, 20, 31,8C27 
280 DATA 31,20,31,32,2D,31,32,20,31,34,2D,31,35,20,FF, ÎF, BFDC 
285 DATA 01,01,43,28,43,92,FF,04,02,1F,02,02,43,4F,4E, 54,933D 


296 DATA 52,4F,4C,45,20,44,45,29,45,4F,4D,50,41,54,49,47,9787 | 


295 DATA 49,40,49,54,45, 20, 44,45,53, 20, 4D,4F,44,45,53, 20, 9BE2 
300 DATA 45,4€,20,43,4F,55,52,53, 20, 2E, 20,52, 45, 46,45, 52, 9FD3 
305 DATA 45,4€,43,45, 26,4D,4F, 44,45, 26, 34, 20,FF, OA, DD, 20, AZEZ 
316 DATA 53,90, 52,49,54,45, 20, 4E,55, 4D, 45,52, 4F, 20, 3A, 2, AB2A 
315 DATA FF,20,49,4E,43,4F,4D,50,41,54,49,42, 40,45, 20, 45, AD25 
320 DATA 4,20, 4D.4F.44,45,20,07.FF. 1F, 26.02, 20, 54.45.52, B12F 
325 DATA 4D,49,4E,45, 20, 2E,FF, DC, 1F,02, 02,43, 4F, dE, 54, 52,B554 
320 DATA 4F,40,45, 29, 44,45, 20,45, 4F,40,50,41,54,49, 42, 49, B99B 
335 DATA 4C,49,54,45,29,44,45,53, 20,45, 4E,43,52,45,53, 20, BDC5 
349 DATA 45,4E,20,43,4F,55,52,53, 20, 2E,FF, 20,52, 45,56, 4F, C2AD 
345 DATA 49,52, 20,50,45, 4€, 29,4€,55,4D,45,52,4F, 20, 34, 20, C6BB 
356 DATA FF, 0C, 1F,02,02,43,4F,4E,54,52,4F, 40,45, 20,54, 41, CE04 
355 DATA 42,40,45,20,54,45,52, 40, 49,4€,45,07,FF, 1F,31,02,CF63 
360 DATA 07,18, 20,45,52, 52,45, 55,52, 20, 50,45, 4€, 20,43, 4F,D32C 
365 DATA 4E,54,49,4€,55, 45, 52, 29, 3F, 20, 28, 4F,2F,4E, 29, 20, D7D 
376 DATA 18,FF,1F,02,05,4€, 4F, 4, 42,52,45, 20, 44,45, 20,53, DB2A 
375 DATA 50,52,49,54,45,53, 20, 3A, 20,04, OA, OD, 29, 20, 4D, 4F,DE7E 
380 DATA 44,45,20,45,43,52,41,4E, 20, 20, 20, 20, 20, 20, 26, 20,E1BA 
385 DATA 34,29, 04,0, 0D, 29, 29,40, 4F,4E,47,55,45,55,52, 2, E4Dé 
396 DATA 44,45, 20,54,41,42, 40,45, 20, ZA, 20, OA, A, OA, ÔD, 20, E7AC 
395 DATA 20,53,96,52,49,54,45,53, 20, 4D,49,52,4F, 49,52, 20,EC08 
406 DATA 56,45,52,54,49, 43, 41, 40, 20, ZA, 08, OA, OD, 20, 2, 53, EF 70 
495 DATA 50,52,49 54 45.53.20) 4D,49, 52,47, 49,52, 26,48, 4 F3FO 
41e DATA 52,49,5A,4F,4E, 54, 20, JA, OA, OA, 6D, 2, 26,53, 50, 52,F786 
415 DATA 49,54,45,53, 20, 40,49, 52, 4F,49,52, 20, 44,4F,55, 42,FBF7 
426 DATA 40,45, 20, 26, 20, 3A, 0A, DA, OA, OD, 20, 20, 43, 4F,55, 4C,FECO 
425 DATA 45,55,52,53, 20,59, 45,4€, 29, 34,07,FF, 1F, 13, 19, 67,024 
430 DATA 18,20,53,41,55,56,45,47,41,52,44, 45, 20,45, 4€, 2, 06Ab 
435 DATA 54,41,42,40,45,20, 44,45, d6,49,4E,49,54,49,56, 45,0815 
44 DATA 20,3F,20,28,4F,2F,4E,29, 20, 18,FF, 1F,01,01,54, 59, 0EB6 
445 DATA 90,45, 20,3F, 29, 1F,08,01,07,4E,4F,52, 40, 41,40, 20, L1E2 
450 DATA 29,29, 26,29, 20, 20,FF, 1F,08,01,07,4D,49,52,4F, 49, 1550 
455 DATA 52,29, 48,4F, 52,49, SA, 2E,FF, 1F,08, 01,07, 4D,49, 52, 1992 
4e DATA 4F,49,52, 29,56, 45,52, 54, 49,2€,FF, 1F, 08,61, 07, 4D, iDCF 
465 DATA 49,52,4F,49,52,26,44,4F,55,42,40,45,FF, 1F, 12, 15,2274 
476 DATA 53,55,50, 50,52, 49, 40,45, 52, 20, 40,41, 20,54, 41, 42, 26DF 
475 DATA 40,45,26,2E,20,07,FF,1F, 14, 16,4F,50,54,49,4F, 4E, 286 
486 DATA 20,41,46,46,49,43,48,41,47,45,20,2€,20,07,FF, 1F,2F27 
485 DATA 1B,18,18, 20,58, 4F,5D, 3D,54,4F,55,54, 29, 20,58, dE, 330B 
49 DATA 5D,2D,53,45,4C,45, 43,54, 49, 4F,4E, 20, 18,07,FF, 1F, 37AB 
495 DATA 14,17,18, 20,58, 31, 5D, 20, 26,53, 45, 40,45, 43,54, 49, 3E50 
506 DATA 4F,4E,4E,45,52, 29,55, 4€, 20, 40, 4F,44,45, 20, 1F, 19, 3F32 
595 DATA 18,20,5B, 32,50, 20, 20, 43,4F,4D,4D,45,4E,43,45,52, 4134 
510 DATA 20,41,55,29,4€,55,4D,45,52,4F, 20,32, 58, 20, 1F, 1E, 46F2 
515 DATA 19,20,58, 33,50, 2D, 26, 52,45, 43,48, 45,52, 43,48, 45, 4AEC 
526 DATA 20,50,41,52,20,4E,4F,4D,53, 20, 18,FF, 1F,0D, 17,45, 4FÜE 
525 DATA 4E,54,92,45, 52, 20,54, 4F,95,54, 20, 4F,55, 20, 56, 41,5377 


536 DATA 52,54,49,45,20, 44,55, 29, 4E,4F, 4, 20,52,45,43, 48, 5780 
535 DATA 45,52,43,48,45, 26,28, 20,58, 2A, 5D, 20, 3A, 14,FF, 1F, 5EFD 
54û DATA 13,16,4F,50,54,49,4F,4€,20,53,55, 50, 50,52, 45,53, 6044 
545 DATA 53,49,4F,4€, 20, 2E,FF, 1F,01,16,53,55,50, 50,52, 49, &4E3 
550 DATA 4D,45,52,29,44,45,53,53,49,4€,20,2E,1F,01,19,FF,6933 
555 DATA 1F,10,18,4€,55,4D,45,52,4F, 26,41, 20,53,55, 50, 59, 6025 
566 DATA 52,49,4D,45,52, 20, 3F, 20, 20, 20,08, 08,FF, 1F, 13, 16, 70BA 
565 DATA 4F,50,54,49,4F,4E, 26, 4D,4F,44,49,46,49,43,41,54,7543 
570 DATA 49,4F,4E,20,FF, 1F,02, 18, 4D,4F,44,49,46, 49,45, 52, 7906 
575 DATA 20,44,45,53,53,49, 4€, 1F,61,19,FF,1F,02,0F,52,41,7DB1 
580 DATA 4E,47,45,4D,45,4€,54, 20,44,45,53,53,49,4€, 1F, 02, B1Cb 
585 DATA 11,58, 31,50, 20, 45, 4E, 26, 46, 49, 4€, 20,44, 45,20, 54, B5ED 
596 DATA 41,42,4C,45,1F,02, 13,58, 32, 5D, 20, 4D, 45, 4D, 45, 26, 8923 
595 DATA 4C,4F,43,41,54,49,4F,4E,1F,02,15,5B,33, 50, 20, 41,BCFE 
490 DATA 55,54,52,45, 20, 40,4F,43,41,54,49,4F,4E,FF,1F, 02, 91D7 
685 DATA OC, 14,4€,55,4D,45,52,4F, 20,41,43,54,55,45, 40, 34,95E5 
bi6 DATA 29,FF,1F,02,0€,52,41,4E,47,45,4D,45,4E, 54,20, 45, 9A39 
615 DATA 4E,20,3F, 20,20, 20,08, 08,FF, 1F, LA, 17,4E,55, 4D, 45, 9DDA 
426 DATA 52,4F,20,44,55, 20,50, 52,45,4D,49, 45,52, 20,44,45,A211 
425 DATA 53,53,49,4€,20,3F, 2,20, 20,08, 08,FF, 1F, 1A, 18, 4€, ASBB 
&3e DATA 55,4D,45,52,4F,20,44,55, 20,44,45,52,4€, 49,45, 52, AA25 
635 DATA 20,44,45,53,53, 49, 4E, 20, 3F, 20, 20, 20,08,08,FF, 1F,ADFB 
b46 DATA 1D,18,4E,55,4D,45,52,4F, 20,41, 20, 4D,4F,44,49, 46, B1F3 
645 DATA 49,45,52,20,3F, 20,20, 20,08,08,FF,04,02, 1F, 02, 02, BACA 
456 DATA 53,45,4C,45,43,54,49,4F,4E, 20,45, 4€, 20,43, 4F, 55, B92A 
855 DATA 52,53, 26, 44,52, 49,56, 45, 20,FF, 1F,02,04, 43,48, 41,ED79 
bbô DATA 4E,47,45,52,20,44,52,49,56,45, 20,3F, 26,28, 4F, 2F,C164 
be DATA 4E,29,FF,1F,02, 18,45,53,54,2D, 43,45, 29, 40,41, 20,C581 
&7o DATA 42,4F,4E,4E,45, 20,44, 49,53,51,55, 45,54, 54,45, 20, C9EB 
675 DATA 3F,20,26,4F,2F,4E,29,07,FF, 1F,02,18,43,48,41,4E,CDCÉ 
68 DATA 47,45,52,29, 40,41, 20, 44, 49,53, 51,55, 45,54,54, 45, D223 
485 DATA 29,45,54, 20, 54,52, 45,53,53,45,52,20,55,4€,45, 2, D648 
490 DATA 54,4F,95,43,48,45,FF,1F,13,16,43,48,41,52,47,45, DBÔ! 
495 DATA 52,20,55,4€,45, 20,54, 41,42, 4C,45,20, 2€, 20,FF, 1F,DF6F 
706 DATA 92,15,58,4F,5D, 20,43,48,41,4E,54,49,45,52, 20, 2D,E348 
705 DATA 20,58, 4€, SD, 20,54,52,41,56,41,49,4C,FF, 1F,02, 16,E7D7 
719 DATA 4E,4F,4D,26,44,45, 20, 40, 41,20,54,41,42,4C,45, 20, EBEF 
715 DATA 3F,29,1F,14,17,2D, 20,20, 20, 20, 20, 20, 20, 2A,2D, 2D,EE54 
726 DATA 20,1F,14,16,FF,1F,02, 16, 18,07, 20, 43,45, 54,54, 45,F1E4 
725 DATA 20,54,41,42,4C,45, 20,4, 27,45, 53,54, 26,56,41,53,F5C1 
736 DATA 29,44,55, 26,54,59,50,45,20,44,45, 40, 41,4E, 44, 45,F9EA 
735 DATA 29, 18,FF,1F,28, 16,54, 59, 90,45, 20, 44,45, 20, 40, 41,FE16 
140 DATA 20,54,41,42,40,45, 29,3, 29,FF, 1F,02,69,40,4F,43,021F 
745 DATA 41,54,49,4F,4E,20,4D,45, 4D,4F,49,52,45, 20,34, 1F,0641 
156 DATA 02,08, 40,4F,4E,47,55,45,55,52, 20, 20,54, 41,42, 40, GA21 
755 DATA 45, 20,20, 3A,20,FF, 43,48, 41,4€,54,49,45,52,FF, 54, 0FAD 
766 DATA 52,41,56,41,49,40,FF, 1F,13,16,53,41,55,56,45, 47, 1471 
765 DATA 41,52,44,45,92, 26,54, 41,42,4C,45,20,2E, 20,FF, 1F, 18F3 
776 DATA 13,14,43,4F,4E,43,41,54,45,4€,45,52, 20,54,41,42, 1CF5 
775 DATA 40,45,53,20,2€,20,FF, 1F,03,19,44,45,53,53, 49, 4E, 2147 
786 DATA 20,45,4E,29,4D,4F,44,45, 20, 20,FF,43,4F,4E, 46, 49, 25ED 
785 DATA 52,4D,41,54,49,4F,4E, 20,3F, 20, 28,4F,2F,4E,29, 07, 29AA 
196 DATA FF,04,02,1F,04,04,53,45,4C,45,43,54,49,4F,4E, 4, ZDCA 
795 DATA 45,52, 20,4C,45, 20, 4D,4F,44,45,20,44,27, 20,45, 43, 31BA 
806 DATA 52,41,4E,20,FF, 1F, 04,06, 41,54,54,45,4E,54,49,4F,361B 
805 DATA 4E, 26, 34, 20,40,45, 53, 20, 44,49,4D,45,4€,53,49,4F, JA3F 
819 DATA 4E,53,20,44,45,20,4C, 41,20, 47,52, 49,40, 40,45, 26, 3E35 
815 DATA 53,4F,4E,54,20, 40,49, 4D,49,54,45,45,53, 20,41, 20, 4276 
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820 DATA A, 20,FF,1F,04,07,34, 36, 20,4F,43,54,45, 54,57, 20, 4675 
825 DATA 44,45,20,48,41,55, 54,45, 55,52, 29,26, 26,33, 38, 20, 402D 
836 DATA 44,45,20,4C,41,52,47,45,55,52, 20,45, 4€, 20, 4D, 4F, 4ES7 
835 DATA 44,45,20,20,FF, 1F,04,08, 36,39, 20,4F,43,54, 45, 54, 5268 
849 DATA 53, 20,44,45,20,48,41,55,54,45,55,52, 20, 26, 2,29, 5641 
845 DATA 29,20,44,45,20, 40,41,52,47,45,55,52, 26, 45, 4€, 26, 5AZE 
850 DATA 4D,4F,44,45, 20, 31,26, 26, 20,32,FF, 1F,04,0C, 4€, 4F, 5E6i 
855 DATA 4D,42,52,45, 20, 44,45, 20,43,41,53,45,53, 20,45, 4€, 6212 
8éë DATA 20,40,41,52,47,45,55, 52, 26, 28, 30, 31, 20, 2D, 20, 4, 65A7 
865 DATA 41,58,49,29,20,FF, 1F,04, OA, dE, 4F,4D, 42,52, 45, 20,6% 1 
876 DATA 44,45, 20,43,41,53,45,53, 24, 49,4E, 20, 48, 41,55, 4, ébtE 
875 DATA 45,55,52, 20, 28, 36, 31, 20, 2D, 20, 4D, 41,58, 49, 29, 26, 7178 
886 DATA FF,1F,01,19,18,54,52,41,43,45, 20,47,52,49, 40, 4C, 7501 
885 DATA 45, 20, 28, 4F,2F,4E, 29,20, 3F,07,18,FF, 1F. 01,01. 07. 7BF8 
890 DATA 18,45,52,52,45,55, 52, 24, 50,41,92, 41,40, 2E, 20, 4/, /LOE 
895 DATA 52,49, 4C,40,45,18,07,FF, 1F,02, 18,07, 18, 20,45, 52,B6B6 
900 DATA 52,45,55,52, 26, 44,49,53,51,55,45, 20, 21,20, 1B,FF, 8551 
905 DATA 1F,1E,19,18,20,56,52,45,53,53,45,52, 20,55, 4E, 45, 890B 
910 DATA 20,54,4F,55,43,48,45, 20, 2€, 18,07,FF, IF, 18, 16,07, BCEZ 
915 DATA 18, 20,49, 40,20, 4€, 27,59, 20,41, 28,50, 41,53, 20, 44, 9027 
926 DATA 45,29,54,41,42,4C, 45, 20,45, 4E, 20, 40,45, 4D, 4F, 49, 944E 
925 DATA 52,45,26,18,07,FF, 1F,04, 04,07, 18, 26, 20, 26, 40, 41,9756 
930 DATA 29,54,41,42,4C,45, 20,45, 53,54, 20,43, 4F, 40, 59, 4C, 9885 
35 DATA 45,54,45, 20, 29, 20, 18,07,FF, 1F,01,01,07, 20,53, 41,9EBD 
940 DATA 55,56,45,52, 20, 44,45,53,53, 2€, 20,3F,20,4F,2F,4E, AZC7 
945 DATA 07,FF,1F,01,04,07,53,41,55,56,45,52, 20, 54,41, 42, AbC5 
956 DATA 4C,45,20,2F,20,4F,2F,4E, 07, FF, 1F,01,01,47,52, 49, AAAA 
955 DATA 4C,40,45,20,45,4€,54,49,45,52,45,20,3F, 20,4F, 2D, AEAE 
968 DATA 4E,20,FF,53,90, 52, 49,54,45,20,4€,55,4D,45,52,4F,BXEB 
985 DATA 29, 3A, 20,20, 20,FF, 45, 4€, 20, 40, 4F,44,45, 20, 20, 20, E7D9 
976 DATA 20, 29, 20, 29, ZA, 26, 20, 20, 20,FF,4F,43,54,45, 54,53, BBE4 
975 DATA 26,40,49,42,52,45,53, 20, SA,FF,4F, 43,54, 45,54, 53, CôFd 
980 DATA 20,53,50,52,49,54,45, 20, 34, 20,FF,41,44,52,45, 53, CSCF 
985 DATA 53,45, 20,53, 0,52, 49,54,45,ZA,FF, 46,49, 4€, 20, 44, CADE 
996 DATA 45,20,54,41,42,40,45, 20,29, ZA,FF, 4€, 4F,4D, 26,44, CFéC 
995 DATA 45,53, 2€, 3F,20,FF, 4€, 4F,4D, 20, 3A, 20,FF, 54,59, 56, D4F 0 
1909 DATA 45,20, 3A,20,FF,4E,4F,52, 40, 41,4C,FF,4D, 2€, 48, 4F, DABE 
1905 DATA 52,49, A, 4F,4E,54,41,4C,FF, 40, 49,52, 2€, 56, 45,52, DFFD 
1919 DATA 54,49,43,41,40,FF, 4,49, 52, 2E,44,4F,55, 42,40, 45,E53A 
1015 DATA FF,1F,02,14,44,49,4D,45,4E,53,49,4F,4E,53, 20, 47,E9CE 
1926 DATA 92,49,4C,40,45,FF, 1F,02, 15,48, 41,55,54, 45,55, 52, EE99 
1925 DATA 29,34, 20,FF, 1F,02, 16,40, 41,52, 47,45,55, 52, 20, 3A,F2BS 
1936 DATA 20,FF,1F,02,18,4D,4F,44,49, 46, 49,45,52, 20,47,52,F715 
1935 DATA 49,40, 40,45, 20, 3F,07,FF, 00,00, 09, 00, DO, Gÿ, dû, 00, F AD 


SGDAT 6 


1° #44 sgdath +444 

19 A=35041:F=35737:L=100:HHILE AË=F:FOR A=A TO ATIS:READ C$:K= 
VAL (°R"4CS) :6=5+K+65556#(S9+K332767):IF A€=F THEN POKE À,E 

29 NEXT:READ D$:T=VAL("&"4D$):1IF T£2S THEN PRINT CHR$(7):"Erre 
ur ligne":;L:END ELSE L=i+5:WEND 

39 FOR 1i=35738 T0 38255:FÜKE i,419:NEXT 

49 FOR i=38256 TO 39255:POKE i,426:NEXT 

99 FOR 1=39256 TO 40839:P0KE 1,MES:NEXT 
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bo RESTORE 284 

76 FOR 1=49840 TO 49B48:READ a$:FDKE 1, VAL ("4 "+a$i :NEXT 

89 FOR i=40849 TO 49B53:POKE 1, &24:NEXT 

96 FOR 1=460854 TO 49871:POKE i,%FF:NEXT 

190 FRINT'data 6 termine“ 

11 SAVE "surgcode",b,26006,21678:PRINT"CODE SAUVEGARDE EN 2654 
ÿ" 

126 FRINT'FAITES UN RESET SUIVI" 

136 FRINT'DE RUN SGDRELOC" 

146 DATA iF,01,19,12,1F,02,18,49,4€,54,52,45,52, 29,48, 41,62FD 
145 DATA 55,54,45,95,92, 26,20, 20,08,08,07,FF, 17,02, 18,45, b6Bb 
156 DATA 4E,54,52,45,92,26,40,41,92,47,45,55,52, 29, 20,26, 0AA3 
155 DATA 68,08,07,FF,9E,4F,95D, 2D, 4D,45,4€,55, 26,58, dE, 5D, 6F48 
ioë DATA 2D,44,45,53,53,49,4€,FF,07,08,20,08,0E,20,067,08, 1248 
165 DAIA 24,08,FF,26,26,20,20,20,20,26,20,29,FF,1F,01,03,161i 
176 DATA 14,FF,57,00,73,60,63,00,9E,00,C4,00,6€,61,2B,61,1A0B 
175 DATA 43,01,58,01,73,01,BB,01,A3,61,BB,61,D3,61,EB, 61, 1ECB 
186 DATA 65,62,1E,02,35,02,4B,02,63,02,7B,62,95,01,D6,68,217D 
185 DATA 39,01,D6,06,19,61,D6,00,FE,06,D6,00,E7,04,EF,00, 2724 
198 DATA C9,00,EF,66,49,00,EF,00, BB, 60,EF,0b,74,60,ED, 41, 2056 
195 DATA 5C,00,ED,01,46,06,1F,01,50,41,2F,02,54,4E,54,40, J6BE 
260 DATA 54,41,54,52,3E, 0, CD, SA, BE, 3E, 6D, CD, 5A, BE, C9, 1F,3756 
265 DATA 1C,19,18,29,49,4D,56,52,49,4D,45,52,20,44,4F,4E, 3809 
216 DATA 4E,45,45,53,20,28,4F,2F,4E,29,20,3F,20,18,07,FF,3FOE 
215 DATA 1F,13,19,18,26,49,4D,56,52,49,4D,41,4E,54,45, 24, 42A7 
220 DATA 48,4F,52,93,26,53,45,52,56,49,43,45,26,2E,43,4F,46F4 
225 DATA 4E,54,49,4E,55,45,92, 20, 28,4F,2F,4E,29,20,3F,20, 4AD5 
234 DATA 18,07,FF,1F,14,16,18,26,4C,45,26,4€,4F,40,20,44,4E73 
235 DATA 45,4D,41,4E,44,45,20,4E,45,26,46,49,47,55,952,45,52BE 
244 DATA 24,56,41,53,20,41,55,26,46,49,43,48,49,45,52,26, 566 
245 DATA 18,67,FF,1F,13,16,92,45,4E,4F,4D, 4D, 45,52, 20,55, SAËE 
259 DATA 4E,26,53,96,92,49,54,45,20,FF,1F,19,17,4E,55, 4D,5F89 
255 DATA 45,52,4F,20,44,55,20,53, 59,52, 49,54, 45,26, 41,20, b3A6 
266 DATA 52,45,4€,4F,4D,4D, 45,52, 20, 3A,26,26,26, 06,08, 07, b6Dé 
265 DATA 14,FF,1F,1C,18,4E,4F,55,96,45,41,55, 26, 4E,4F, 4D, 6B69 
274 DATA 26,3F,20,FF,1F,1C,16,41,55,54,52,45,26,4F,56, 45, 6FBF 
275 DATA 52,41,54,49,4F,4€,26,3F,26,26,20,4F,2F,4E,29,FF,7447 
286 DATA 1F,41,16,14,1F,18,16,92,45,49,4E,49,54,49,41,4C,777F 
285 DATA 49,53,45,952,26,40,45,53,24,45,4E,45,952,45,53,26, 7BBb 
296 DATA 3F,26,26,4F,2F,4€,29,67,FF,1F,16,17,55,54,49, 4C,7FC2 
295 DATA 49,53,45,52,20,45,4E,43,52,45,53,26,44,55,20,5:3,8461 
306 DATA 56,52,49,54,45,26,4€,59, 40, 45,52, 4F,20,3A,26,26,8815 
395 DATA 26,08,68,07,FF,1F,04,16, 18,26, 4C,27,4F,56,54, 49, BE&üE 
319 DATA 4F,4E,26,43,41,50,54,59,92, 45,20, 4€, 45,26, dé, 4F ,BFA4 
315 DATA 4E,43,54,49,4F,4E,4E,45,29,51,55,27,24,41,56, 45,93EB 
320 DATA 45,26,55,4E,45,26,49,4D,41,47,45,26,45,43,52,41,97F4 
325 DATA 4E,20,4E,4F,4€,26,43,4F,4D,56,41,43,54,45,45,2€,9C2C 
330 DATA 26,18,FF,1F,1E, 17,43,48,41,52,47,45,52, 26,49, 4D,A069 
335 DATA 41,47,45,20,3F,20,28,4F,2F,4€,29,07,FF,1F,02,16,A46F 
349 DATA 4E,4F,4D,26,44,45,26,40,27,49,40,41,47,45,20,3F,A7F7 
345 DATA 29,6A,2D,2D,2D,2D,2D,2D,2D,2D,2A,2D,2D,2D,1F,13,AA6C 
350 DATA 16,FF,1F,02,16, 18, 29,43,45,20,4€,27,45,53,54, 29, AE19 
355 DATA 54,41,53,20,55,4E,45,29,49,4D,41,47,45,20,45,43,B230 
360 DATA 52,41,4E,20,18,07,FF,1F,01,61,41,59,54,92,45,26,B611 
365 DATA 43,41,56,54,55, 52,45, 20,3F,28,4F,2F,4€,29,07,FF,BAA7 
370 DATA 09,06,00,00,00,06, 09,00, 60,00, 00,06, 00, 00,00, 00, BAA7 
375 

186 DATA 4E,53,41,4€,953,20,4E,4F, 4D, 400 


GEM SUR AMSTRAD PC 
par Digital Research 
168 pages -185 FF Réf. SIP 1 


Ce hvre constitue une découverte cornplète et progressive du 
logiciel GEM et de ses principales applications  GEM Point 
GEM Write, GEM Graph et GEM Wordcnort 

Des explications claires et pratiques permettront aux débu- 
tants de mieux manipuler ies disquettes GEM les fichiers la 
souris, 1ls trouveront également des menus déroulants et toutes 
les abréviations et commandes de GEM utilisées 

Voici un ouvrage également indispensable pour mieux Com 
prendre en quoi GEM et l'Amstrad PC peuvent résoudre des cas 
concrets en milieu protessionnel où Semi-protessionnel 


CLEFS POUR GEM SUR AMSTRAD PC 
par Daniel Martin 
288 pages - 195 FF Réf. SIP 2 


Voici un livre de référence pour les programmeurs avertis Sur 
Amstrad PC Ils pourront 

retrouver facilement les différents constituants de GEM 
(GEM VDI, GEM AES) 

étudier successivement le constructeur de ressources RCS 
la description d'un programine GEM, l'éditeur d'icônes, etc 

tirer profit des trucs et astuces très utiles donnés par i auteur 
lis pourront enfin programiner leurs propres applications gra 
phiques sur ce magnifique outil qu'est GEM 


DOS PLUS SUR AMSTRAD PC 
par Daniel Martin - Collection Digital Research 
200 pages - 145 FF Réf. SIP 3 


Cet ouvrage s adresse aussi bier aux débutants qu'aux utilisa 
teurs plus avertis cherchant des informations sur ce Système 
d'exploitation DOS Pius sur Amstrad PC est une découverte 
complète et progressive de ce logiciel permettont de faire tour 
ner des programmes sous MS-DOS ou CP/M 86 Après une pré 
sentation générale de l'Amstrad PC, les premiers chapitres du 
livre constituent une approche de DOS Plus (opérations sur les 
fichiers, fichiers batch, éditions de textes etc ) La deuxième 
porte de l'ouvrage approtondit les caractéristiques les plus 
évoluées de DOS Plus (utihsation approtondie des répertoires 
programmes d'arnière-plan gestion de l'imprimante etc ) 


FONCEZ AVEC L'AMSTRAD PC 1512! 
Cedic/Nathan 

par Brian C. Thomas 

208 pages - 98 FF Réf. SIP 4 
Cet ouvrage de l'Amstrad PC 1512 est conçu comme un guide 
de l'utilisateur indispensable lors de l'achat du rnutériel 
Lutilsateur y trouvera un chapitre spécial sur le MS DOS. sur ia 
communication, Sur le Basic 2, sur les logiciels, sur les exten 
sions et périphériques additionnels, etc 


GESTION SUR AMSTRAD PCW 
par J-M Jego et J M. Gargadennec 
240 pages -175 FF Réf. SIP5 


Découvrez progressivement sur votre Amstrad 3 logiciels com 
plémentaires Locoscript, dBASE Il et Multipian Ce livre vous 
propose des modèles et des tableaux de bordcommentés Vous 
pourrez les adapter à votre propre contexte si vous êtes com 
merçants ou travaillez dans une PME 


CLEFS POUR AMSTRAD PCW 
par Jean-Jacques Weyer 
240 pages - 215 FF Réf. SIP 6 


Voici un livre complet et indispensable, d'utihsation simple et 
pratique pour l'utilisateur de l'Amstrad PCW 

I! détaille tout ce que vous dvez besoin de savoir sur le Basic Mol 
lard Locoscript (logiciel de traitement de texte du PCW), Multi 
plan, dBASF Il et CP/M Plus 

L'auteur a développé pour chaque applicationles diverses com 
mandes illustrées d'exemples concrets, les fonctions et opéra 
teurs les messages d'erreur etc 


ss 
BON DE COMMANDE 


A renvoyez avec votre règlement à STAMP DIFFUSION, 


17, rue Russeil 44000 NANTES 
Frais de port en sus: 25F 


Ci-joint mon règlement par chèque ou mandat. 


en un EL, 


AMSTRAD A L'ECOLE 
par D. Nielsen et À. Garcia-Ampudia 

232 pages - 120 FF Réf. SIP 7 
Cet ouvrage, destiné aux parents, élèves et enseignants est 
conçu pour aborder ou réviser les malières principaies des 
classes du primaire le caicul, le français et l'éveil 

21 programmes d'enseignement sont proposés aux lecteurs 
ainsi qu'un cahier de vacances qui permettra aux enfants de 
concevoir eux-mêmes de petits programmes 


CRÉATION ET ANIMATIONS GRAPHIQUES 
SUR AMSTRAD 
par Fouchard et Corre 
128 pages - 11O FF Réf. SIP 8 


Vous apprendrez, grâce à ce hvre à créer des Images telles 
qu'un pinceau. un aérographe, à animer vos dessins avec des 
scrolings. des inversions ou des reconstitutions g'image point 
por point, ceci à l'aide dela souris et dela manette dejeu Les pro 
grammes sont écrits en Basic et en assembleur 

A vous ensuite de réaliser vos propres "bandes dessinées élec 
troniques” 


TROIS ETAPES VERS 
L'INTELLIGENCE ARTIFICIELLE 
SUR AMSTRAD CPC 
par R. Descamps 
280 pages - 160 FF Réf. SIP 9 
informaticien ou non decouvrez trois tocettes de l'intelligence 
artificielle à travers des exemples sinpies et pratiques et 
27 programmes en Basic qui utilisent toutes les ressources de 
lAmstrod Apprenez à votre ordinateur à simuler un pilote auto 
matique. à jouer contre lui-même et créez vos propres systèmes 
experts 


RSX ET ROUTINES ASSEMBLEUR 
SUR AMSTRAD CPC 
par D Roy et J.-J. Meyer 
368 pages 200 FF Réf. SIP 10 
Voici un manuel de programmotionen assembleur Z 80 En deux 
parties distinctes. l'une sur le graphisme, l'outre sur les matné 
motiques. l'ouvrage présente de nombreux progiammes 


assembleur largement commentés et expliqués Unouvrage de 
hout niveau 


TURBO PASCAL SUR AMSTRAD 

par P. Brandeis et F. Blanc 

224 pages -135 FF Réf. SIP 11 
Ou comment maîtriser progressivement ce langage Comment 
installer des programmes en Assembleur à l'intérieur des routi 
nes Poscal Retrouvez dons ce livre toutes les instructions expli 
quées et illustrées 


AMSTRAD 3D 
por J.-P. Petit 
264 pages - 195 FF Réf. SIP 12 


Celivre propose un programme Basic pour créer des formes, les 
dupliquer, les réduire ou les agrandir. et surtout pour les vision- 
ner sous différents angles entrois dimensions (hauteur, largeur, 
protondeur) Un menupresente toutes les manipulations possi 
bles, et tous les dessins se font à partir du clavier (nul besoin de 
monette de jeu ou de souris) L'ouvrage est abondamment 
illustré de dessins et de copies d'écran 


GRAPHISME EN ASSEMBLEUR 
SUR AMSTRAD CPC 
parF. Pierot 
304 pages -145 FF Réf. SIP 13 


Pour créer des graphismes très variés (tracé d'histogrammes, 
dessin d'un paysage, création d'une corne d'abondance) tout en 
exploitant toutes les possibilités graphiques de votre CPC 

Si vous êtes débu‘ant er nccembleur vous pourrez progresser 
grôce à des roulines prêtes à l'empici livrées sous ia doubie 
forme d'un programme Basic et d'un listing assembleur 


LE LIVRE DE L'AMSTRAD 
par D. Martin et P. Jadoul 
256 pages 120,00 FF Ref. SIP 14 


Une élude complète des circuits et de lo structure interne de 
Amstrad. ses fonctions et les instructions mai connues du 
Basic (VARPTR ). une présentation détaillée des RSX pour 
ajouter de nouvelies commandes au Basic et de nombreux pro 
grammes pour simuler les commandes de Scrolhng, colorioge 
münipulation vectorielle 


PROGRAMMES POUR AMSTRAD 
Cedic/Nothan 
par H. Cador et S. Houel 


128 pages - 89 FF Ref. SIP 15 
Cet ouvrage permettra à l'utilisateur de jouer et de programmer 
avec Amstrad CPC (464, 664 et 6128) en Basic ou en assem 

bleur 

Ilexplique comment construire Sot même un ‘Space Invaders” 
de haute gamme, un Synthétiseur musicai où un générateur de 
courbes ou de graphiques 


INTELLIGENCE ARTIFICIELLE 
SUR AMSTRAD CPC 
Langage et formes par T et E Levy-Abegnoli 


176 pages -195 FF Réf. SIP 16 


Ce livre aborde, avec humour, deux notions bien précises de l'In 
teligerne Arificielle le langage noluïel el lo reconnaissance 
des formes Les dix logiciels Basic de celivre tournent cutour de 
ces deux thèmes Le dernier programme est un min système 
expert de diagnostic médical Les progrommes sont de ditfi 
culté moyenne 


CLEFS POUR AMSTRAD 
Tome 1. Système de base par D Martin 
184 pages - 140,00 FF Réf. SIP 17 


Pour cccéder rapidement uujeu d'instruction duZ 80, oux points 
d'entrée des roulines système, aux blocs de contrôle, à la struc 
tureinterne et des conseils pour découvrit l'originalité de votre 
Amstrad 


Tome 2 Systeme disque par D. Martin 
etP Jadoul 
232 pages - 155,00 FF Réf. SIP 18 


Pour avoir sous les yeux les commandes, les points d'entrée des 
routines disque, les blocs de contrôle, la programmation et les 
brochages des circuits spécialisés et un chapitre complet Sur le 
langage Logo distribué avec le système disque Vous trouverez 
aussi un recueil de ‘trucs’ pour apprendre à tronstérer des pro 
grammes de lo cassette vers ie disque, comment uhliser l'édi 
teur de secteur, elc 


SO EN ny 
RE um = 


Veuillez m'envoyer les ouvrages dont j'indique les titres ci-dessous. 


INITIATION 


PROGRAMMEZ 
VOTRE IMPRIMANTE 


Michel ARCHAMBAULT 


La plupart des possesseurs d'imprimante 


n’utilisent que 5% des possibilités de leur 


machine, à savoir LIST #8 et pour certains 


logiciels ‘’tout faits’’, genre traitements 
g g 


de textes. Il est vrai que la lecture du 


manuel (quand il n’est pas en anglais...) 


n’a rien de très engageant pour se lancer 


dans la programmation des ‘codes : 
EPSON'’ 


7 7? /] 


Dans un premier temps, nous allons expliquer le 
PRINCIPE de la programmation de ces codes, car il est 
ici essentiel de comprendre ‘comment ça marche/’. Après 
cela, tout devient alors très clair. 


Ensuite, l'application pratique, non par des programmes 
démo qui ne servent à rien, mais par deux programmes 
qui vous seront très utiles : l’un imprime une adresse sur 
une enveloppe (complément obligatoire de tous les 
traitements de textes) ; l’autre imprime des étiquettes à 
coller sur cassettes ou disquettes Ë et 5 pouces). Le but 
caché étant de vous donner envie de recevoir des 
programmes pour imprimante, aux usages les plus divers. 


La conversation micro-imprimante 


Lorsque le CPC envoie un texte à l'imprimante (LIST #8 
ou PRINT # 8) le débit en caractères/seconde est énorme, 
très supérieur aux 100 caractères par seconde (=CPS) 
de l'imprimante. Celle-ci doit alors pouvoir dire au micro 
‘’Stop, j'en ai plein le buffer, je n’ai pas fini d'imprimer. 
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Ca y est, c’est fini, envoie la suite’. Ou encore ‘’Non! 
je ne veux pas recevoir ton texte parce que je ne suis pas 
en état d’imprimer’’. Motifs : plus de papier, arrêt par 
‘’OFF LINE”, en panne, etc. 


En somme, le micro doit toujours attendre le ‘feu vert’’ 
de l'imprimante pour envoyer son texte. Si vous 
commandez une impression alors que l'imprimante est 
éteinte ou le câble de raccordement non branché, vous 
comprenez alors pourquoi le micro est bloqué! Il attend 
le signal d'accord de l'imprimante qui, bien sûr, ne vient 
pas. 


Certains modèles ont un ‘’Buffer d'entrée’’ (Buffer = 
mémoire tampon) de deux, quatre, six ou huit kilo-octets, 
selon les modèles. Dès le ‘’feu vert’’, le micro y déverse 
son texte : s’il tient dans ce buffer, le micro ‘’reprend la 
main’’ (Ready) et c’est à l'imprimante de se débrouiller 
avec ce qu'elle dans sa RAM. 


Si le texte à éditer est plus gros que le buffer, le micro 
complète ce dernier au fur et à mesure que l'imprimante 
le vide sur le papier. 


C'est la raison pour laquelle, avec ces imprimantes, le 
micro peut poursuivre son programme ou afficher 
‘’Ready’’ alors que l'imprimante continue son travail, 
sans s'occuper de ce qui se passe sur le micro (que vous 
pouvez même éteindrel). 


Que passe-t-il par le câble? 


Le micro ne sait envoyer que des NOMBRES à 
l'imprimante, des codes ASCII: PRINT #8, ‘’A’’ 
transmet en fait 65, le code ASCII du À majuscule. PRINT 
08, CHRS (65) a exactement le même effet. C'est le 
programme résidant dans la ROM de l'imprimante qui 
va actionner la tête d'impression et ses aiguilles pour 
dessiner un À sur papier. 


Toute imprimante reçoit ces nombres, octet par octet : un 
octet = 8 bits = de O à 255. Hélas, nos CPC ne savent 
Es oo que sept bits sur huit. Donc on ne peut envoyer 
que des codes ASCII compris entre O et 127, ce qui nous 
prive des caractères gra ques de codes 128 à 255 qui 
résident dans la ROM de l'imprimante. Vraiment dom- 
mage. 


Dans le câble, il y a un fil par bit ; l’octet est donc trans- 
mis d’un seul coup par ces sept fils, d’où le nom de trans- 
mission ‘parallèle’ ; et ce, par opposition à la transmis- 
sion ‘’série’”’ (aujourd’hui très rare) où chaque bit est 
envoyé un par un, donc dans un câble avec moins de fils. 
Résumons : dans le câble il y a les fils de bits, les fils de 
conversation et le retour masse. 


WIDTH et les codes de retours 


La touche ENTER du clavier a pour code 13, ou ‘’CR", 
c'est-à-dire ‘’CARRIAGE RETURN’ (= retour chariot) 
ou ‘’retour à gauche’’ uniquement, donc sur la même 
ligne! Heureusement notre CPC HA Rats après un CHRS$ 
(13), un CHRS (10) qui est le saut de ligne (ou LF = LINE 
FEED). Il opère de même avec ce qu’il envoie à l'impri- 
mante : chaque chaîne envoyée est terminée (à votre insu) 
par CHRS (13) ; CHRS (10). 

Oui, mais il existe des micros, rares de nos jours, qui n’en- 
voient pas de CHRS (10) et c'est donc à l'imprimante de 
le faire systématiquement après chaque CHRS (13) recu. 
D'où la présence de ce switch ‘AUTOMATIC LINE 
FEED/’ qui doit être sur OFF pour AMSTRAD CPC ; sinon 
saut de ligne supplémentaire. 

Nota : si le défaut persiste, coupez (ou isolez) la liaison 
n° 14 du câble dans l’une des deux prises. 


Dans notre revue, les listings sont présentés en 40 
caractères par ligne pour être conformes à ce que l’on 
voit sur l'écran en MODE 1. Pour faire cela, nous tapons 
WIDTH 40 : LIST #8. Cette commande INSERE CHRS 
(13) ; CHRS (10) tous les 40 caractères. Attention! cette 
consigne reste dans la mémmoire du CPC, pas dans celle 
de l'imprimante... OK ? 


Le Buffer de consignes 


Nous y voilà! C'est une petite mémoire RAM dans l’im- 
primante où vont s’accumuler les consignes d’impres- 
sions : écrire tout ce qui arrivera en caractères larges 
condensés, en italiques, etc. C’est le logement des COBES 
EPSON envoyés par le micro. Les esprits curieux vont se 
demander ‘’comment l'imprimante peut savoir que l'oc- 
tet qu’elle vient de recevoir est destiné au papier ou au 
buffer de consignes 2’ 


Très simple : tout nombre inférieur à 32 et tout ce qui suit 
le nombre 27 (= ESC) n’est pas à imprimer, mais ‘’à 
prendre en considération”. 


Exemples : 

15 : écrire en condensés 

14 : écrire en caractères larges, mais uniquement la 
chaîne qui suit, pas les suivantes. 

12 : avancer d'une page. 

10 : avancer d’une ligne _ 

27 : attention! le code ASCII qui viendra derrière, ira 
dans le buffer consignes, pas sur papier. 
Ainsi, PRINT #8, CHRS (27) ; ‘’É’’ ; envoie 27 et 69 
(code du E majuscule) : tout ce qui suit sera alors imprimé 
en caractères gras, renforcés (utile pour les rubans 
usés). Dans le manuel, on l'appelle ESC E. On aurait 
pu programmer aussi PRINT #8, CHRS (27) ; CHRS 
[69 ; c’est pareil. Cette consigne peut ensuite être annu- 
ée par ESC F. 


Parfois, il faut DEUX nombres après le ESC, c'est le cas 
our les caractères taille ‘’Elite’’ : PRINT #8, CHRS 
27) ; ‘M’ ; CHRS (1) ; que le manuel appelle ESC M 1. 


La ROM de l'imprimante n’est pas bête : elle sait que si 
elle recoit ESC E, c'est terminé pour la consigne, mais si 
elle recoit ESC M, il lui faut encore une valeur (ici 1 ou 
0) et elle l’attend avant de passer la consigne... Si ce 
second code n’a aucun sens, l'imprimante émet un BIP 
sonore et ignorera votre commande (dans le meilleur des 
cas). 


Avez-vous remarqué le point virgule après chaque pro- 

rammation de code EPSON ? Sans lui le code serait 
Dion mémorisé, mais le papier avancerait ensuite d’une 
ligne. Ce qui peut être gênant. 


Pourquoi ce code 27 ? C'est une astuce conventionnelle 
qui permet d'utiliser après lui tous les codes ASCII impri- 
mables ; sans lui on serait limité à 31 commandes (1 à 
31) au lieu de 126. De ce fait, le caractère qui suit ESC 
n'est pas forcément une lettre majuscule, mais aussi une 
minuscule, un chiffre ou un signe de ponctuation. 


Vous pouvez empiler (combiner) toute une suite de 
codes EPSON. Il sufit de les programmer à la queue-leu- 
leu, séparés par des points virgules et sans oublier les 
CHRS (27). Par exemple, pour écrire en caractères lar- 
ges, renforcés, en italiques et soulignés, on programmera 
à la suite ESC W 1; ESCE;ESC4; ESC - 1; 


Si vous annulez ensuite les caractères larges par ESC W 
0, les autres codes restent actifs ; donc la suite sera en 
PICA renforcés, italiques et soulignés. OK 2 


Pour VIDER LE BUFFER, c'est ESC à, que l’on écrit PRINT 
# 8, CHRS (27) ; ‘2’ ; ou CHRS (27) ; CHRS (64) ; C'est 
la ré-initialisation de l'imprimante ; tout y est effacé, 
même la position départ du papier (pour les sauts de 
pages par le code 12 ou par le bouton FF), qui avait été 
mémorisée à la mise sous tension. Comme c'est un code 
fréquent dans les listings et qu’il est long à taper, une 
astuce de fainéant consiste à déclarer tout d’abord EFFS 
= CHRS (7 + CHRS (64), pour ensuite programmer 
2#8, EFFS ; 
On peut opérer de même avec des codes (ou combinai- 
sons de codes) revenant souvent dans un programme. 


GRANDE RECOMMANDATIONI Pour se mettre à l’abri 
de mauvaises surprises, immédiates ou différées, il faut 
toujours commencer et terminer un programme d'édition 
par un ESC 9. Devinez-vous pourquoi ? 


Le cas du ESC ‘’!’’ 


Ce code {si vous le Jarre suivi d’un paramètre entre 
0 et 128 fournit une multitude de combinaisons d'écritu- 
res : non seulement on obtient des tailles de caractères 
intermédiaires, entre condensé, Elite, Pica et large, mais 
aussi plus petits que ‘’condensé”” ; avec ou non espace- 
ment proportionnel, renforcés, italiques… Une mine d'or! 
Ainsi, un seul code genre CHRS (27) : “F7 ; CHRS (73) 
remplace une série de quatrel Cependant, mon devoir 
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est de vous mettre en garde : ces codes EPSON ne sont 
pas standards d’une machine à une autre! Même au sein 
de la même marquel Le meilleur exemple est de prendre 
les machines de à marque. EPSON : 

De 1984 à 1987, nous avons eu droit à cette succession 
de modèles : ‘’FX 80’ ; ‘’FX 80+’’ ; ‘’FX85'’ et ‘’FX 
800’, avec chaque fois l'addition de nouveaux codes, 
qui se combinent dans le ESC ‘’!’’. Conséquence : les ESC 
IN ne correspondent pas d’une imprimante à une autre. 
C'est donc un code à ÜSAGE INTERNE, personnel. Ne 
faites jamais publier dans une revue un listing l’utilisant, 
sinon vous aurez beaucoup de courrier. 

Réalisez ce petit programme et conservez soigneusement 
l'édition (deux pages) qui en résulte. 


10 ‘ CODESC-! 

ESC 

28 ‘ AMSTRAD CPC - M.A. - 6/87 

30 CLS: INPUT"'Nom et Type de 1l'Imprimante 
5: ",IMPS$ 

4Q PRINT #8,"ESC ! 
ss IMPH:PRINT #8 

50 A$="AEIOUFILTVaeioufjltv" 

6@ FOR N=Q@ TO 127 

70 PRINT #8,CHR$S(27); CHR$(64); :PRINT #8, 

USING "### "35N; 

80 PRINT #B,CHR$S(27);"!"3;CHRS(N) ;, AS 

90 NEXT:PRINT #8,CHR$(27) ; CHR$(64) 

100 END 


— Caracteres imprimes par 


N avec l'Imprimante 


L'Lmpr mette  EFSON FX 00 
A AE TG JLTN 
À SETOLFUL TV 
" JUIF UL. TY 


aëLoQUT 3 Lt 
CUT LES 

nf lts 
E GEICLIFOLTVaeicnutiits 

4%  AEJOUFJLTYaeioufjlty 

1 AETOUFJLTVaeioutj1tv 

és MEXOLIF IL TN mafaltv 
TOUR TE ioufiltsy 
3 AEIOUFILTVaeioufjltv 
7 ÆIAFIJITVæioufjltv 

1A AEIOUFIJLTVaeioufjltv 
ii AEIOUFILTVaeioufijltv 
1% AEIOUFILTVaeioufjltv 

À AETOUFILTVaeioufjitv 

i4 AEIOUFIJLTVaeioufjltv 


fi 


Si un jour vous changez d'imprimante, relancez ce pro- 
| g p : ce p 
gramme. Vous verrez alors que dans tel ancien pro- 

gramme, il faut modifier ESC! 17 en ESCI 42... 


Quelques remarques pratiques 


— Malgré un effet d'optique trompeur, les caractères 
condensés, Elite, Pica et larges ont exactement la MEME 
HAUTEUR. Donc les interlignes ne changent pas. 

— Les codes EPSON reçus par l'imprimante sont PRIO- 
RITAIRES sur les options par défaut, établies par les 
‘’switches’”. 

— Certaines combinaisons de codes ont des effets mal- 
heureux dans certains modèles, alors qu'elles sont accep- 
tées par d’autres. 
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— Le saut de page (FF, code 12) ne fait pas forcément 
avancer le papier de 11 pouces {ou 12 pouces selon le 
réglage) mais de la quantité de lignes qu'il restait à faire 
pour compléter à 1 pouces. La position ‘ligne 1 du 
papier, est mémorisée par la mise sous tension ou par 
‘envoi de ESC à 

— Pour les tabulations horizontales et verticales, évitez 
d'utiliser les codes EPSON spécifiques, ils sont délicats 
et ‘’chatouilleux’’. Programmer des SPC { } et des PRINT 
# 8 en boucles FOR NEXT est peut-être plus lourd mais 
plus sûr. 


Et maintenant, programmons : 


Impression d’enveloppes 


Ce programme convient aux enveloppes formats 
110x 160 mm ou 110x220 mm 

Mettre l'imprimante en entraînement FRICTION, enga- 
ger l'enveloppe comme dans une machine à écrire, à gau- 
che du rouleau caoutchouc. Le haut de l'enveloppe est 
amené sur la petite barre presse-feuille située au-dessus 
de la tête d'impression. 


18 ‘ ENVELIMF — 
206 ‘ AMSTRAD CPC 
/6/87 

30 CLS:CALL &HR4E:GOSUR 51000: AZERTY 

48 LOCATE 10,2:FRINT"'LIBELLE de 1'ENVELO 

PPE" 

0 DATA DESTINAT.,"ADRESSE 1","ADRESSE 2 
", "ADRESSE 3","COD VILLE" 

60 PEN 2:FOR N=1 TO S:READ L$:LOCATE 1,4 
+NX2:FRINT LH:NEXT:FEN 1 

76 FOR N=1 TO S:LOCATE 11,4+NX2:LINE INF 
UT "",A#(N):NEXT 

80 CLS:LOCATE 5,12: INFUT"Freparez 
loppe et ENTER ",R$ 

90 PRINT #B,CHR$(27) ; CHR#$(64) ;: CHR$(27);" 

R"SCHRS(1) ;CHRS(27):;"8";:" INIT + AZERTY 
+ NO FAPFER END 

100 FRINTRS,CHR$(27);"x"3;CHR$(1);:" 
sinon ESC "E" 

110 WIDTH 60 

120 FOR 1=1 TO 8:FRINTRB:NEXT 

150 PRINTH8,SFC(50);:A$(1):FRINT#8 
140 PRINT#8,SFC(50);A$(2) 

150 FRINT#H#8,SFC(30);A$(3) 

168 FRINT#9,SPC(30):A$(4):PRINT#8 
170 FRINT#S,CHR#(27)3;"w"3;CHR$ (1); SPC(30) 
3A$(5):" double hauteur sinon ligne 180 
180 FRINTRS,CHR$S(27) 3; "W";CHR$ (1): SPC(1 
3)3A$(5):" double largeur sinon ligne 17 

@ 

190 FRINTHS,CHR$(12):" 

e 

200 CLS:LOCATE 10,1G8:PFRINT "ENCORE LA ME 

ME 7 (O/N)" 

210 R$="":WHILE R$="":R$S=INKEYS:WEND 

22@ IF INSTR("Oo",R$) THEN CLS:GO0TO 80 

230 WIDTH 255:FRINT #8,CHR#(27):CHR$(64) 
:CALL &BB4E: INIT CFC & IMPRIMANTE 

2406 LOCATE 3,13:FRINT "Pour autre adress 

e relancer par RUN'":FRINT 

250 END 

351000 AZERTY ACCENTUE 

51010 SYMEOL AFTER 64 

51020 SYMEOL 64,96,48,120,12,124,204,118 
G 

, 


IMPRIME ENVELOFFE 
— Michel Archambault 10 


l'Enve 


NLGQ 


Ejecte l'envelopp 


SYMBOL 
SYMBOL 
SYMEOL 
SYMBOL 


91,0,56,108,56,0,0,0,0 
92,0,0,60,102,96,107,60,24 
93,60,96,60,102,60,6,60,0 
123,12,24,60,102,126,76,60, 


SYMBOL 1?74,48,24,102,102,102,102,6 


SYMBOL 125,48,24,60,102,126,96,60, 


RETURN 


Monsieur Jean-Paul BLANC 


chez Mr, Mme NOIRET 
Villa "Les Lézardes" 
65 Avenue Maréchal FOCH 


94400 VITRY SÛR SEINE 


Monsieur Jean-Paul BLANC 


chez Mr, Mme NOIRET 
Villa ‘Les Lézardes” 
65 Avenue Maréchal FOCH 


94400 VITRY SUR SEINE 


— Ligne 30 : le CALL BB4E et le GOSUB 5 1000 ne con- 
cernent que les CPC à clavier QWERTY. Les contenus des 
lignes de l'adresse sont entrés par des LINE INPUT ; cela 
permet de taper des virgules ou des guillemets. 

— Ligne 90 : on prépare les codes EPSON : l’habituel 
ESC 6, puis la suppression du PAPER END ; obligatoire 
avec une enveloppe | 

— Ligne 100 : code qualité courrier. Si vous ne l'avez 
pas, remplacez-le par ESC E (= renforcé). 

— Ligne 110 : pourquoi ce WIDTH 60 ? Mais pour ne 
pas courir le risque de voir la tête aller à droite de 


enveloppe. 


Micronaute 


LE SPECIALISTE 
NANTAIS DU PC 


Revendeur qualifié conseil 


SI VOUS AVEZ L'INTENTION DE CRÉER 
OU SI VOUS AVEZ DEJA CREE 


VOTRE BOUTIQUE 
INFORMATIQUE 


REJOIGNEZ-NOUS AVEC LA FRANCHISE 


— Ligne 120 : on avance de 8 lignes ‘’à vide”. 

— Lignes 130 à 160 : on imprime le nom et les trois lignes 

d'adresse, en laissant une ligne blanche sous le nom, et 

une autre avant la ligne localité. 

— Ligne 170 : pour code postal et ville on passe en dou- 

ble hauteur. Nettement plus lisible! Surtout pour les pos- 

tiers faisant le tri. Si vous n’avez pas la double hauteur, 

(ESC w minuscule), utilisez la ligne 180 qui écrit en carac- 

tères larges. C'est assez encombrant avec les envelop- 

pes format 110 x 160. 

— Ligne 190 : ce FF (=FORM FEED) ou CHRS (12) va 

éjecter notre enveloppe imprimée. 

— Lignes 200 à 220 : l'écran vous propose de recom- 

mencer l'impression, en cas d’un raté quelconque. Dans 

le cas contraire. 

— Ligne 230 : on fait le ménage dans la RAM de l’im- 
rimante et dans celle du CPC. Le CALL &BB4E annule 
es caractères définis dans le GOSUB 51000. 

Pour une autre adresse on relancera par RUN. 


Etiquettes pour cassettes ou disquettes 


Vous ne trouvez pas que c’est moche, ces étiquettes écri- 
tes à la main (même en s'appliquant) ? Vous arrivez à 
écrire quelque chose de lisible sur une étiquette 3’ 
AMSOFT 2 Et si maintenant c'était en superbes caractè- 
res imprimés, le titre en large renforcé et le reste en PICA 
et le tout auto-centré ? 

Il ne restera plus qu'à découper ces belles étiquettes et 
à les coller sur la cassette, le boîtier de cassette, sur dis- 
quette 3’ ou 5’1/4. (colle en tube ou adhésif double face). 
L'imprimante a même fait les traits pour guider la 
découpel 


La technique rappelle celle du programme précédent mais 
le listing paraît ue complexe parce que commun aux 
trois supports : K7, 3’ ou 5’ 


AMIS DU LOTO 


ne gaspillez plus votre mise ! 


Jouez “malin” avec 
LOTO-INFORMATIC 


Le programme d'analyses, 
de sélections et 
de combinaisons de jeux 
dont vous rêviez pour mettre 


.. SON VIDEO 2000 ET DEVENEZ ee 
We S.A.V. personnalisé UN DISTRIBUTEUR POINT MICRO POUR ne ce 
e Contrat de maintenance MOINS DE 20000 F 1 


e Logiciels - Livres 
e Location 


M Adresse : 

9, rue Urvoy de Saint Bedan 
44000 NANTES 

Tél. 40.69.03.58 


DISTRIBUTEUR AGRÉÉ AMSTRAD, 
COMMODORE, ATARI. ORIC et COMPATIBLES PC. 


RENSEIGNEMENTS : 
Tél. 56.91.15.81. | 


DOC + CADEAU TRES UTILE 
pour la confection de vos 
grilles contre 4 timbres à : 


INFORMATIC Applications 
BP N°78 - 67800 BISCHEIM 
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10 ‘ ETILOG - Etiquettes Disc et K7 - @6 
/87 


2@ ‘ AMSTRAD CPC - Michel Archambault 

30 INK G,20:INK 1,@:BORDER 20:PEN 1:PAPE 

R @:MODE 2 

4@ E$=" ET I LOG ": 

50 E$="ETIQUETIT 

SETTES ou DIS 

6@ YE=7:GOSUB 39000 

7@ E$="Michel Archambault - mai 1987'":YE 

=11:G6O0SUB 39000 

8Q LOCATE 37,17:PRINT "K7 3° 9°" 

90 TEX$="K35":GOSUB 50000:S=K 

100 ON S GOTO 110,120,130 

110 D$="K7":LM=3SS:LTS=40:NL=1:CTS=45: GOT 

0 1000 

120 D$="3'"":LM=28:LTS=28:NL=3:CTS=95:GOT 

0 1000 

130 D$="5"":LM=SO:LTS=SD:NL=4:CTS=95:GOT 

0 1000 

200 ‘ Legendes des Variables 

2186 ‘ D$,S=type de support ; NL=Nombre d 

e Lignes apres le titre ; LM=Longueur ma 
xi d'une ligne 

220 ‘ LTS=longueur du trait de separatio 

n ; CTS=code ASCII du trait de separatio 

n 

230 ‘ T$=titre ; L$(NL+1)=Contenu des Li 

gnes ; YE=ligne d'ecran pour chaine E$ a 
encadrer et centrer 

1000 ‘ SAISIE DES LIGNES 

1010 CLS:E$="Etiquette "+D$:YE=2:GO0OSUB 3 
9000 

102@ LOCATE 13,5:PRINT "TITRE ";SPC(INT( 
LM/2));">" 

10350 LOCATE 19,5:LINE INPUT "",T$ 

104Q IF LEN(T$) >INT(LM/2) THEN 1020 
1050 FOR L=1 TO NU 

1060 LOCATE 11,LXx2+5:PRINT "Ligne'";l;SPC 
(LM)3;">":NEXT:IF S=1 THEN 1080 

107@ LOCATE 9,L*X2+5:PRINT "LANCEMENT ";3S 
PC(LM-11);">" 

1080 FOR L=1i TO NL 

1090 LOCATE 19,LXx2+5:LINE INPUT "",L$(L) 
1100 IF LEN(LHS(L)) >LM THEN L$(L)=LEFTS( 
L$(L),LM) 

111Q NEXT:1IF S=1 THEN 2000 

1130 LOCATE 19,LX2+5:LINE INPUT "",LS&(NL 
+1) 

1140 IF LEN(LHS(NL+1)) DLM-11 THEN 1120 
1150 IF LEN(LHS(NL+1)) >Q THEN L&(NL+1)=" 

Lancer par "+L$(NL+1) 

2008 ‘ IMPRESSION à 

2010 PRINT #8,CHR$(27); CHR$(64) ;CHR$(27) 
3'E"3 

2020Q PRINT #B8,STRING#(LTS,CTS) 

2050 IF S>1 THEN PRINT #8 

2040 PRINT #8,CHR$(14);SPC((LTS/2-LEN(TS 
))/2):;:T$:1F S>1 THEN PRINT #8 

2050 LL=ABS(S>1):FOR L=1 TO NL+LL 

2060 PRINT #8,SPC((LTS-LEN(L#(L)))/2);L$ 
(L) 

207@ NEXT 

2086 PRINT #8,STRING#(LTS,CTS) 

2090@ PRINT #8,CHR$&(27) ; CHR$(64) 

2100 LOCATE 28,2@:PRINT "Relance, Nouvel 
le, Quitter 7?7":TEX$="RNG":GOSUB 50000 
2110 IF K=1 THEN 2000 

2120 IF K=2 THEN 1000 

2130 INK @,1:INK 1,24:BORDER 1:MODE 1 
214@ END 

39000 ‘ CADRE pour E$ mis en hauteur YE 
en MODE 2 


:GOSUB 39000 
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39010 XE=(B0-LEN(ES$))/2-2 

39020 LE=LEN(ES) 

37030 LOCATE XE,YE-1:PRINT CHR$(150):;STR 
INGS(LE+2,154);CHR$(156) 

39040 LOCATE XE,YE:PRINT CHR$#(149)3;" "3€ 
$;" ";CHR$(149) 

39050 LOCATE XE,YE+1:PRINT CHR$(147);STR 
ING$(LE+2,154);CHR$(153) 

39068 RETURN 

50000 ‘ REPONSE A UN MENU 

50010 TEX$=UPPERS(TEXS):LT=LEN(TEXS) 
50020 LOCATE 36-LT,24:PRINT"'Reponse ("; 
50030 FOR 1=1 TO LT-1 

50040 PRINT MID$(TEX$,1,1)3;","3:NEXT 
50050 PRINT RIGHT$S(TEX$,1);")" 

50060 R$="":WHILE R$="":R$S=INKEYS : WEND 
50070 R$=UPPERS (RS) :K=INSTR(TEXS,RS) 
50080 IF K=@ THEN PRINT CHR$(7);:GOTO 5@ 
260 

50090 RETURN 


UTILITAIRES 
Exemple d'Etiquette K7 et boitier 


UTILITAIRES 


Etiquette pour 1 face de 
disquette 3 pouces. 
Deccuper et coller. 


Lancer par RUN "UTIL" 


UTILITAIRES 


ETIQUETTE pour disquette 5 ‘ 
On dispose ici de 4 lignes de 
texte plus le TITRE et le 
code de lancement. 
Lancer par CTRL-ALT-DEL 


Le sous-programme 39000 est une petite nouveauté qui 
permet d’encadrer une chaîne ES à l’écran, avec auto- 
centrage de l’ensemble sur la ligne n° YE (2 à 23) de 
votre choix. Je vous suggère de l'enregistrer à part, en 
ASCII, sur votre he à e modules utilitaires (à rechar- 
ger par MERGE). La ligne 39010 correspond au centrage 
en MODE 2. En MODE 1, remplacez le 89 par 40 ou 
par 20 en MODE 0. 


Dès le départ, vous devez choisir le support à étiqueter, 
K7, 3 ou 5’, ce qui fixe certains paramètres des lignes 
100, 110 ou 120. Toutes ces variables sont légendées 
en clair dans les REM des lignes 200 à 230. 


Les traits de séparations : ils matérialisent les futures 
découpes haut et bas mais aussi droite et gauche de par 
leur largeur LTS. Cette largeur, dans le cas K7 est supé- 
rieure à la longueur maxi d'un ligne de texte, LM. Pour- 
quoi ? Parce que l’on imprime DEUX exemplaires par 
cassette : une pour la jaquette du boîtier, l’autre moins 
longue pour coller sur la cassette même. Ces traits sont 
à base de tirets (code ASCII 45) ou de ‘’soulignés’’ (code 
95). Différence ? Le tiret est au milieu de l’interligne, le 


M ie en bas. Ce détail prend une énorme impor- 

tance lorsqu'il s’agit d'imprimer une bande aussi étroite 

(deux lignes) qu'une étiquette de K7. 

Le choix ‘cassette’ (S = 1) est un cas à part, à cause 

FE de place, d’où ces fréquents IF S = 1... ou 
> 1 


Les lignes de textes : le titre est un cas à part puisqu'il 
sera imprimé en caractères larges. Viennent ensuite 3 
lignes pour les 3 pouces, 4 lignes pour les 5’ 1/4 et une 
seulement pour les cassettes. 
Pour les disquettes, on a une ligne supplémentaire pour 
écrire le nom du programme de lancement, par exemple 
RUN "’MACHIN’”. Dans le cas où vous avez rempli cette 
rubrique, vous aurez la place. 
Lancer par RUN ‘’MACHIN’’ 

ou une ligne blanche si vous avez fait un ENTER ‘’à 
vide”. 
Quelques détails de programmation : Remarquez lignes 
2020 et 2080 la programmation des deux traits, simple- 
ment par PRINT #8, STRINGS [(LTS, CTS) 
— Ligne 2050 nous voulions 

FOR L = 1 TO NL pour les cassettes 
et FOR L = 1 TO NL + 1 pour les disquettes 3’ et 5”, 
d'où ce LL = ABS {S > 1). Si c’est faux (S > 1) = O, 
si c'est vrai la condition (S > 1) = — 1, transformé en 
+ 1 par ABS |). 
Les matheux diront que j’aurais pu écrire FOR L = 1 TO 
NL — (S > 1) mais ce serait encore moins clair. 
— Lignes 1020 et 1040, nous programmons INT (LM/2) 
alors que ce INT n’était pas indispensable. C'est pour 
déjouer un piège : imaginons LM impair , 35 par exem- 
le, le SPC (35/2) de la ligne 1020 se traduira par SPC 
M mais le IF LEN (T$) > LM/2 se traduira par IF LEN 


> 171 avec partout INT (LM/2) on est tranquille. 
eci n’a rien à voir avec les imprimantes, mais remar- 


quez que notre écran de saisie présente d’abord toutes L 


les lignes avec leurs longueurs maxi. Ainsi l'opérateur voit 
d'emblée la place dont il dispose et il compose en consé- 

vence. C'est ce qu’on appelle un ‘’détail de convivia- 
lité’. Obligatoire ici, car c’est un programme que l’on 
lance peut-être souvent, mais Généralement pour une 
seule étiquette. 


Conclusion 


En si peu de pages, on n’a pas pu étudier toutes les facet- 
tes des programmes d'éditions. Ce serait le moment de 
passer mon spot publicitaire sur un certain livre de la 
SORACOM intitulé ‘’La Pratique des Imprimantes’’, qui 
traite surtout de ce genre de programmation, mais je ne 
sais pas si j’oserais. Trêve d’hypocrisie, le but princi- 
pal était de rendre compréhensible, donc digeste, non 
seulement le comportement d’une imprimante, mais aussi 
le fonctionnement de ces ‘’ESC quelque chose’’. À partir 
de là, le contenu du manuel apparaît enfin plus 
sympathique. 

Je vous engage à essayer les ‘’codes EPSON’ qui vous 
intéressent (ou vous intriguent) mais d’abord dans les 
petits programmes d'essai de deux à quatre lignes, 
AVANT de les exploiter dans un long programme. Con- 
sidérez l’ensemble de ces codes comme étant un LAN- 
GAGE à part entière, qui a la particularité de s’insérer 
dans tous les langages, pour tous les micro-ordinateurs 
et pour toutes les imprimantes modernes, à de rares 
exceptions près. 


Le prochain CPC vous offrira 
un catalogue détachable 
de 16 pages, de vente 
par correspondance. 


Retenez votre CPC dès 
aujourd'hui auprès 
de votre détaillant... 
eee] 
Il y aura des affaires à ne pas 
manquer | 


IRE 
'RPMOIS 


EXPLOITEZ 
VOTRE 
STRAD 


le livre + la cassette 


103 F FRANCO 


Jeux - Gestion 
Education - Domestique 
Impression de documents 


Un best-seller 
Bon de Commande 
à renvoyer à STAMP DIFFUSION, 17, rue Russeil - 44000 NANTES 


Exploitez votre Amstrad. 103 F - Port gratuit. 


Nom Prénom 


Adresse 
Ci-joint chéque de 103 F. 
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TASHORD Saga ... 


Voici 3 ans la presse informatique saluait TASWORD 464 en ces termes: 
"Il n'y à pas de meilleure raison d'acheter un CPC que ce programme ! 
TASWORD 464 (+260.-ttc) fut suivi de TASWORD "D" MAIL-MERGE pour accommoder 
les disquettes et le 664. En 1985, TASWORD 6128 MAIL-MERGE  (TASWORD 
"D" et TASWRD 6128 sont vendus sur la même disquette à +360.-ttc) avec sa 
massive mémoire texte de 64Ko vit le jour et devait bientôt être accepté 
comme le standart sur le 6128 et les 464/664 avec extensions DK'tronics. 
1986 vit l'arrivée de TASWORD 8000 (+450.-ttc) qui rendait sa rapidité et 
sa mémoire au PCW 8256/8512 lui offrant par la même occasion le premier 
MAIL-MERGE incorporé et l'accès aux imprimantes externes. 1987 saluat 
l'arrivée des CPC AZERTY, TASWORD CPC fut vite, lui aussi, rendu conforme. 


Un vent de renouveau ,., TASWORD EC 


Le printemps 1987 vit la naissance de TASWORD PC, un vent de simplicité et 
de puissance (sans parler . d'économie... +490.-ttc) souffle sur les 
"compatibles". Face aux mastodontes du traitement de texte, TASWORD propose 
à un prix calculé, une solution qui en fait plus; TASWORD PC fait avec 
efficacité ce que la majorité des utilisateurs souhaitent, il simplifie 
l'écriture. Un manuel complet et didactique, un programme d'auto- 
apprentissage et bien sûr MAIL-MERGE accompagnent TASWORD PC. 


Des talents de typographe .,, TASPRINT 


TASPRINT accompagne TASWORD depuis le début et vous permet de faire des 
merveilles avec votre imprimante matricielle, cinq polices de caractères 


sur CPC, huit sur PCW et plus de vingt sur PC, plus sur ce dernier un 
créateur de polices simple et puissant. TASPRINT s'utilise aussi seul pour 
imprimer tout texte ASCII (Locoscript, Wordstar etc...). Sur PCW et PC, 


TASPRINT possède un mode "machine à écrire" très pratique pour les textes 
courts. (TASPRINT CPC +230.-ttc - PCW +260.-ttc - PC +350.-ttc) 


MASTERFILE SOC 


Là ou les autres vous obligent à faire un choix entre fichiers en RAM 
rapides mais de capacité limitée, et des fichiers en accès direct sur 
disquettes, de grande capacité mais encombrants car de longueur fixe, 
MASTERFILE et le disque RAM du PCW travaillent ensemble pour vous proposer 
une grande capacité et un accès rapide à des données de longueur variables. 
100% en langage machine, entièrement piloté par menus, MASTERFILE 8000 est 
aussi accompagné d'un manuel didactique complet et de 10 exemples 
directement utilisables (adresses/étiquettes, facturier, bibliothèque, 
discothèque, gestion clientèle, gestion articles etc...). Fichier indexés 
ou non, champs illimités, fichiers relationnels, calculs entre champs, tri 
multicritère, tout, tout y est ! Aucun programme du genre sur PCW n'offre 
une telle puissance, flexibilité et convivialité (MASTERFILE PCW +550.-ttc) 
= | | J: Demandez une documentation sur nos autres nouveautés: 

Gestion de compte bancaire sur CPC 
Multistat, statistiques multivariées sur CPC 
et nos autres programmes pour CPC, PCW et PC 


Vous trouverez les logiciels Sémaphore auprès des ces spécialistes --> 


EE te 


France Disquette 


Ta | 
ce Nouveau en français |! 


TA 
i0L 
48 Bouievard de :3 Linerte 


69008 LYON 35000 RENNES 6 ù 

34 rue de la ns C F A F P L\ D PCY k PC 

42000 St. ETIENNE FNAC - MAMMOUTE - MAUUSULE : 

MERCI Générai à La tablette à digitaliser économique 

Ê enerai Videc : ne s L : 

23 rue le la Mouchetière 0 Bd. de Strastourg et un logiciel de dessin Fe de 

45140 SAINT-JEAN-DE-LA-RUELLE 715010 PARIS hautes performances. Grafpad s'uti- 

MAJUSCULE BASE 4 lise sur PCW 8256/8512 ou PC "compa- 
à : LL Q Q . 

1-9 pe Aristide-Briand | rue Samozet tible ”. Le puissant outil de | dessin 

20-22 rue de la Table-Ronde 64009 PAU des ingénieurs, architectes, instal- 


38200 VIENNE 


Micro ARE 
4i rue du 4 septembre 
65000 TARDES 


Montaigne Informatique 
1431 av. G. CLemenceau 
14300 CLUSES 


GeLee 
31 rue Gambetta 


50800 VILLEDIEU LES POELES 


BY Electronic 
24 bis rue Ch. Mossant 
26300 BOURG DE PEAGE 


Informathèque 
8 rue des pété Bois 
08000 CHAR 


Microgiciel 
2 que Bonhomme 
62500 St OMER 


Blanc-Music | 
rue A 
20000 AJACCI 


HIFI Madison 
2 rue du G* Estienne 
15015 PARIS 


Caïssa HAE 
62 av. G° De Gaulle 
93110 ROSNY-SOUS-BOIS 


Contact'Eure 
19 rue de Colmar 
21009 EVREUX 


Micros & Robots 
15 rue Fructidor 
11100 CHALON SUR SAONE 


LOGIMICRO 
2 av. de Laon 
51100 REIMS 


Ordividuel | 
20 rue de Montreuil 
94300 VINCENNES 


Esat Software 
55 rue du Tondu 
33000 BORDEAUX 


La Puce Savante 
8 bd de la Gare 
31500 TOULOUSE 


Proforma PSI 
3 rûe de Lorraine 
25000 BESANÇON 


Micro Boutique 
9 rue de la es 
39200 St. CLAUDE 


EVILLE-MEZIERES 


Loisir Informatique 
39/41 rue de l'Oratoire 
4000 CAEN 


Loisitech 
Centre Terminal 98 
93106 MONTREUIL 


Computerment Votre 


2 rue Goupil - Bourgneuf 


2 
17220 LA JARRIE 


Computer Market 
50 rue Antoine Dansaert 
B-1000 BRUXELLES 


Lobochrome 
13 rue de Fragnee 
B-4000 LIEGE 


Free-Time Ordimex 
3 bd. Bara 
B-7500 TOURNAI 


pu 
94 rte de La Plaine 
CH-1283 La Plaine 


Semaphore Boutique 
6 Terrassière 
CH-1207 Geneve (Rive 


AS Informatique 
197 Banne 
CH-2902 Fontenais 


Philosoft 
3 rte de Lausanne 
CH-1096 Cully 


DISTRIBUTION 


UBI-SOFT (1j 43 39 23 21 
SIS 50 38 94 95 
DDI(PCW) (1) 48 67 28 44 


Nous nous excusons vis à 
vis des revendeurs que 
nous aurions ommis de 
cette liste... s'ils se 
font connaitre, nous les 
y incluerons volontiers. 


Autres pays, outre-mer & 

isoles, contactez: 
Ds VPC, 

. CH-1283 La Plaine. 

Telephone 41 22 54 11 95 

VISA et EUROCARD accepte 


lateurs sanitaires, électriciens, 
créateurs de circuits électroniques, 
enseignants,... Son prix et sa 
simplicité d'apprentissage en font 
l'outil idéal pour les PME et les 
écoles. Manuel explicatif détaillé, 
programme et cassette "tuteur" audio 
en français. 

Modèle PCW 8256/8512 .... 
Modèle PC "compatibles 


1990.-— ttc 
2490.-—- ttc 


Offre spéciale d'été 
Scanner D À R T complet 
Seulement 550.- ht 


Offre valable jusqu'au 30 juin 1987. 
Renvoyez ce bon à Sémaphore VPC et 
effectuez votre Versement par mandat 
postal international ou indiquez 
votre numéro de carte VISA ou 
EUROCARD pour reçevoir votre Scanner 
par retour. 
Nom: 
Prénom: 


Adresse exacte: 


Numéro postal: 

Ville: dcr M RON pt rates SE 
No. CARTE VISA / EUROCARD (Biffer) 
Date de validité . . / CRE 23 
Signature: 


ANTE CHRIST 


Deux siècles avant J.C. mourait, à 
Alexandrie, le génial concepteur 
d'une méthode de calcul des nom- 
bres premiers. C'était un Grec, il 
s'appelait Eratosthène et son ‘’cri- 
ble’’ a toujours cours en notre ère 
informatique. 

Roger HOH, de Collonges sous 
Salève, nous propose un petit pro- 
gramme qui permettra aux matheux 
et aux curieux d'extraire les nom- 


bres premiers de 2 à 1000. 


10 MODE 2 : INK 0,0 : INK 1,26 

20 PAPER O:PEN 1:BORDER 0 

30 ZONE 8:DEFINT c-z:x= 1000:DIM n{x) 

40 LOCATE 29,2:PRINT'/Crible d’Eratosthène’” 
50 LOCATE 29,3:PRINT STRINGS(23,'’="" 

60 PRINT:a=TIME 

70 FOR p=2 TO x:IF n{p}=1 THEN 110 

80 np=p:PRINT p, 

90 FOR i=np+np TO x SETP np:n(i)= 1:NEXTi 
100 ee à 
110 NEXT 
120 PRINT’ - tEMPS MIS :’;: 
130 PRINT''DECS{((b-a)/300,'’# #.# #'’]"’ Secondes” 


Et si Eratosthène avait disposé d’un 
CPC... Révons…. 


618 : 213 = 918 


Pour les contempteurs du système 
décimal et pour les vénérateurs du 
calcul par fraction, voici un petit pro- 

ramme qui permettra de remplacer 

(=3,1416 par, non pas 22/7 
comme vous le pensiez, mais 
333/106 ou, mieux 355/113. Ça a 


une autre ‘’gueule’’, non 


10 INPUT ‘’Entrez un nombre décimal” ;N 

20 U=N:A=INT(N):X=A 

30Y=1:H=1:1=-0 

401IF (ABS{(N-X/Y)< RU OR(U-A=0) THEN 
PRINT:PRINT X;////Y;"="":;XIV:END 

50 U=1/ (U-A):A =INT(U):C={(X*A)+H 

60 H=X:X=C:C=(Y*A)+l:1=Y:Y=C:PRINT X;///":Y:GOTO60 


Il'est possible de modifier la préci- 
sion de ce petit programme de frac- 
tions successives d’un nombre déci- 
mal en jouant, en ligne 60 sur 
0.00001. Vous pouvez également 
entrer une opération sur les frac- 
tions. Si le petit frères a des devoirs 
de vacances. 
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PAIR-IMPAIR 


Si l’on vous demandait, pour jouer, 
si vous êtes à même de reconnaître, 

ar l'informatique, un nombre pair 
Loë impair), il y a de grandes chan- 
ces pour que vos recherches s'effec- 
tuent sur la base 10 et vos solutions 
seraient du genre : regardons si la 
partie entière du résultat de la divi- 
sion par deux est égale au résultat. 
Les plus perspicaces, en revanche, se 
seront souvenus que leur CPC utilise 
le binaire (Bravol), ce qui les aura 
amenés à constater qu'il suffit d’ef- 
fectuer un test du bit O de l’octet pour 
obtenir la réponse. Voici ce que cela 
donne en BASIC : 


10 INPUT A:’ (le nombre à analyser) 

20 GOSUB 40 

30 END 
40 IF À AND 1=0 THEN PRINT ‘’IMPAIR'':RETURN 
50 PRINT ‘’PAIR'':RETURN 


Une bonne occasion pour se familia- 
riser avec les expressions logiques 
(Si d'aventure, cela n’était déjà 
ait!) 


RENCONTRE 


E. de JAEGGER, dans CPC 18, 
dépannait vos fichiers BASIC malen- 
contreusement ([maladroitement) 
effacés. Restaient donc les fichiers 
binaires. Frédéric BELLEC, de Lurly- 
Levis et Eric CASTAING, d'Uriage, 
se sont rencontrés, sans le savoir, 
par le truchement de ce problème à 
résoudre. Voici leur solution : 


POKE &A701,229 

CAT 

| REN,''O:NOM.EXT’’,''NOM.EXT"" 
7 (ou POKE &A701,0) 


Quand les grands esprits s’en 
mêlent. 


A 
TAQUETS DU CACHE AVANT 


LAME DE SCIE 
A METAUX 


F 


LE LIEVRE ET... LE LOGO 


Nous ne parlons pas souvent du 
LOGO), pourtant relativement utilisé, 
notamment dans les écoles, par les 
enfants. Jean-Philippe UMBER, de 
Belfort, nous permet, avec son 
!'TRUC'’ de combler, un peu, cette 
lacune. 

LOGO se charge de partir de CP/M. 
Nous allons voir comment réaliser 
l'opération en un seul mouvement. 
1 - Placer dans le lecteur une dis- 
quette au format système. 

2 - Taper, sous BASIC, la ligne : 
OPENOUT ‘’PROFILE.SUB': 
PRINT#9, ‘’SETKEYS KEYS.DRL’’ 
:PRINT #9,'’LOGO3'':CLOSEOUT 
Ce qui a pour effet de générer, sur 
la disquette, un fichier PRO- 
FILE.SUB. 

3 - Avec PIP (sous CP/M+) si vous 
avez deux lecteurs, ou FILE COPY 
(sous CP/M 2.2) si vous n’en possé- 
dez qu'un, transférez sur votre dis- 
quette, à partir de la disquette 
système : CIOCPM3.EMS et SUB- 
MIT.COM (ces deux fichiers sur la 
face 1) et KEYS.DRL et LOGO3 
(face 3). 


Ne re pas la disquette en 
écriture et lancez LOGO en tapant, 
tout simplement : ICPM. 


Un ‘‘plus’’ pour les ‘’logophiles’’. 
gop 


SCIE A METAUX 


Ne vous est-il jamais venu à l’idée 
de modifier votre imprimante DMP 
2000 avec une scie à métaux ? 
Non © Bizarrel 

Fernand GELDREIEN, de Mützig, a 
réussi à obtenir, à l’aide de ladite 
scie, une amélioration notable de 
son imprimante. Comment ? En pla- 
çant la lame de telle facon qu’elle se 
trouve utilisée comme coupe-papier 
(voir schéma). Il vous suffira, après 
avoir légèrement chauffé la lame, de 
l’introduire horizontalement entre les 
deux taquets de maintien du cache, 
à l'arrière de l'imprimante, en orien- 
tant les dents vers l'extérieur. Vous 
utiliserez alors l'imprimante avec 
cache, donc en silence, le papier ne 
menacera plus de se déchirer et vous 
pourrez même utiliser du papier non 

erforé. 

l reste maintenant à écrire une ode 
à la scie à métaux dans une utilisa- 
tion informatique. 


M, Mme 
Adresse 


amstradistes 


Malins les amstradistes, ils ont enfin trouvé le logiciel de leur 
rêve! 

Vous aussi adoptez le logiciel SÉRIE.2 et découvrez vite la 
COMMUNICATION SANS FRONTIÈRE... 


Pour moins de 1.000 F vous pouvez désormais vous 
connecter directement sur le réseau téléphonique et trans- 
mettre vos fichiers, programmes, CAO, DAO en toute fiabilité. 
Avec SERIE.2, il n'est plus nécessaire d'être un crack en infor- 
matique pour enregistrer, archiver, imprimer, les pages écran 
de votre minitel afin de les consulter HORS CONNEXION cest- 
à-dire : GRATUITEMENT. 


Avec le câble spécial SÉRIE.2 reliez votre ordinateur à votre 


minitel et vous avez immédiatement accès à vos banques de 
données favorites. SERIE.2 UNE UTILISATION SIMPLE POUR 
DES APPLICATIONS MULTIPLES... 


Avec SÉRIE.2 exploitez aussi les 2 millions d'adresses profes- 
sionnelles de l'annuaire électronique pour créer vos fichiers 
et les récupérer dans les divers progiciels existants ou 
encore éditer des étiquettes adresses pour vos mailings. 


SÉRIE.2 UNE EFFICACITÉ MAXIMUM POUR UN COÛT 
MINIMUM. 


SÉRIE.2 vous ne trouverez pas moins cher ailleurs. 
SÉRIE.2 
e Version PC1512 

90 F TIC. 


e Version CPC 464 + DDI, CPC664, CPC 6128, PCW 8256, 
PCW 8512 (nécessite un interface série RS 232 C). 
690 F TTC. 


£ SC 
SERIE.2 est en vente à la a 


AVEC SÉRIE.2 : "TÉLÉCOMMUNIQUEZ MALIN !” 


Pour tout complément d'information, retournez ce coupon à : 


_ JMN DIFFUSION 
LES CLÉMATITES 38410 URIAGE 


Permanence téléphonique : 78 27 97 90 


Code postal 


S LYON 334 149 887 / IMPRIMÉ EN FRANCE 


IAEATEE à c 
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LES EXTENSIONS 
DK'TRONICS POUR PCW 


La société anglaise 
DK'TRONICS est bien 
connue pour le nombre 


impressionnant de ses 
extensions pour les 
AMSTRAD CPC, du stylo 


optique aux extensions 


mémoires et disques 


silicium. Elle s'attaque 
maintenant aux PCW, avec 


de nouvelles extensions : 


horloge temps réel pour 


l’une, port joystick et 
interface sonore pour la 


seconde. Après nos tests de 


ces interfaces électroniques, 


nous vous donnons ici notre 


appréciation. 


Noël LAGNEU 
Le 
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L'HORLOGE 
TEMPS REEL 


Les fonctions proposées par cette 
interface sont multiples : 

— Gestion d'une horloge calendrier, 
avec toutes les subtilités inhérentes : 
reconnaissance automatique du nombre 
de jours par mois, prise en compte des 
correspondances jour du mois/nom du 
jour de la semaine. 

— Génération d'interruption périodique : 
la période minimale est de 122 us, et un 
maximum de 500 ms (entre 2 Hz et 8 
KHz). On peut aussi tester une fin de 
cycle, après un certain nombre 
d'interruptions. 

— Mémoire RAM non volatile. 50 octets 
de mémoire sont accessibles à 
l'utilisateur, en écriture comme en 
lecture. À la différence de la mémoire 
RAM interne aux PCW, l'information 
stockée de cette manière est conservée 
jusqu'à usure des piles. 

Du côté hardware, quelques précisions 
techniques pour les amateurs : le coeur 
de l'horloge est un circuit 146 618 Texas 
Instruments, avec sauvegarde par piles 
au nickel. Un microprogramme interne 
le calendrier et la montre, ainsi que les 
alarmes et les interruptions périodiques. 
Un ensemble de 4 registres permettent 
le contrôle de ces opérations (2 en 
écriture-lecture, 2 en lecture seule). Ce 
composant central est interfacé au Z80 
via un port parallèle à 2 registres, aux 
adresses 128 à 131. Un composant 
comme le TIMER 8253 Intel serait 
interfaçable directement au Z80, mais 
nécessiterait ROM et RAM externe, ainsi 
que beaucoup de programmation. 
L'installation de l'horloge temps réel, 
ainsi que celle de la seconde interface, 
ne pose aucun problème : un connecteur 
50 points inséré sur le port d'extension 
des PCW, hors tension. Un détrompeur 
évite le désagrément d'avoir à réfléchir 
sur le sens de montage. Un connecteur 
à l'arrière permet la connexion d'une 
seconde interface (genre joystick- 
synthétiseur, ou RS 232 AMSTRAD par 
exemple. ). Un réglage de la fréquence 
horloge est possible de l'extérieur de 
l'interface à l’aide d'un tournevis. 
Enfin, et ce n'est pas un détail 


négligeable, une disquette programme 
est fournie avec l'interface. Elle contient 
3 fichiers : 

— CLOCK.COM, utilitaire CP/M de mise 
à la date et à l'heure. 

— RTC.RSX, extension du système 
d'exploitation permettant de gérer la 
date. Comme son nom l'indique 
(Résident System Extension), il est 
nécessaire de regénérer CP/M pour 
l'utiliser, à l'aide du programme 
GENCOM. 

— Un programme BASIC démontrant 
l'utilisation des différents registres de 
l'interface et des octets de RAM 
sauvegardée, accessibles à l'utilisateur. 
Quelques IN et OUT nous amènent 
rapidement à ce résultat. 


INTERFACE 
SONORE - JOYSTICK 


Ce second package électronique propose 
des fonctions multiples et variées. Jugez- 
en plutôt : 


— Générateur sonore comportant trois 
voies indépendantes, sur huit octaves, 
auxquelles s'ajoute un canal de bruit 
aléatoire. 

— Port joystick en entrée, auquel 
peuvent se connecter tous les joysticks 
courants type ATARI. 

— Port programmable en sortie, via le 
port joystick, et permettant le contrôle 
de 5 lignes par logiciel. 

Le chef d'orchestre de tout ceci est le 
très célèbre générateur sonore 
AY-3-8912, utilisé dans toute la gamme 
des CPC et dans bon nombre de 
compatibles. Ce composant est 
accessible par deux ports entrée/sortie, 
et comporte 16 registres internes. Il nous 
est présenté dans un boîtier plastique 
clair (couleur PCW), de taille moitié de 
l'interface série AMSTRAD. Son 
installation est aussi très simple et un 
connecteur 50 points prolonge le bus 
d'extension de manière classique. Vu de 
l'extérieur, 3 organes sont accessibles : 
— Le port joystick, prise SUB.D 9 points 
classique (ATARI) 

— Une fiche femelle haut-parleur. Ce 
dernier est livré avec l'interface au bout 


d'un cordon de liaison long de 1 mètre 


— Un potentiomètre de 
volume. 

Nous ne reviendrons pas dans ces lignes 
sur les possibilités musicales du 
processeur AY-3-8912, abondamment 
décrites par ailleurs dans plusieurs 
numéros de cette revue et dans de 
nombreux ouvrages sur les CPC 
AMSTRAD. Il faut simplement noter que 
les facilités logicielles offertes par les 
CPC (instructions SOUND, enveloppe... ) 
ne sont pas présentes dans le software 
accompagnant l'interface. Il sera donc du 
ressort de l'utilisateur de programmer 


réglage de 


directement les registres du processeur. 


Le port joystick présente beaucoup 
d'intérêt en lui-même. Il peut d'abord 
servir à sa fonction première, dans les 
jeux principalement. Un utilitaire est 
fourni sur la disquette d'accompa- 
gnement (DEFJOY COM), qui permet de 
redéfinir les quatre directions et le bou- 
ton de feu. On peut ainsi se servir aussi 
de ce joystick dans MULTIPLAN par 
exemple, en redéfinissant les touches 
curseur. Mais une autre famille d’appli- 
cations intéressantes apparaît lorsqu'on 
sait que ce port fonctionne aussi en sor- 


tie : on pense immédiatement à la com- 
mande de relais (schéma électrique livré 
dans la notice), d'afficheur LED... utili- 
sant les 5 signaux de commande, ainsi 
que l'alimentation même du PCW en 5V. 


En résumé, les deux interfaces DK'TRO- 
NICS que nous avons eu entre les mains 
sont de très bonne facture : intérêt jus- 
tifié pour de tels produits, présentation 
et emballage irréprochables, notices clai- 
res et complètes (mais en anglais dans 
nos produits ?), disquettes de program- 
mes accompagnant et complétant agréa- 
blement l'électronique. 


MASTERFILE 8000 


Voici la dernière gestion de 
fichiers éditée par 


Semaphore Logiciel 
destinée aux AMSTRAD 
PCW. Concue par COMPBELL 
SYSTEM en Angleterre, 

cette superbe réalisation 


présente des 


caractéristiques techniques 


tout à fait impressionantes 
pour un logiciel de gestion 


de fichiers. Sans nous 


attarder à décrire par le 
menu les différentes 


commandes offertes à 


l’utilisateur, nous allons 


vous présenter ici certains 


caractères de ce logiciel qui 


pourront vous faire opter 


pour son utilisation. 


Noël LAGNEU 
en 


PRESENTATION 


MASTERFILE 8000 est une gestion de 
fichier qui travaille uniquement en 
mémoire virtuelle : sur un PCW 8256, la 
taille maxi d'un fichier est donc de 110K. 


Pour un fichier en RAM, on retrouve trois 
fichiers différents sur la disquette : le 
fichier FORMAT, le fichier d'index et le 
fichier de données en lui-même 
naturellement. Les possibilités de 
traitement relationnel, et celles 
d'importation-exportation font que ces 
limites de taille ne sont pas gênantes en 
général. ‘ 


AU lancement du programme 
apparaissent le menu principal de 
MASTERFILE 8000 et un groupe de 3 
lignes au bas de l'écran, qui sont 
présentes durant toute l'application. Elles 
contiennent le message courant à 
l'utilisateur (adapté au point courant 
dans le programme), la ligne de saisie de 
texte et enfin une ligne d'information sur 
le fichier courant (lecteur hôte, nom du 
fichier d'enregistrement courant, nombre 
de fiches à traiter dans le lot sélectionné, 
nom de la donnée sur laquelle est 
construit le fichier d'index, et format 
courant). Chaque commande est 
éxécutée par la frappe d'une lettre codée 
dans le menu principal, qui appelle un 
sous-menu. Ceci peut se prolonger sur 
plusieurs étages, et la liste complète des 
menus et sous-menus que nous vous 
donnons ici vous permet de constater 
que les programmeurs ont bien pensé à 
tout ! 


STRUCTURE 
DE DONNEES 


La démarche généralement adoptée dans 
les gestionnaires de fichiers est la 
structure accès direct et séquentiel 
indexé (type dBASE Il par exemple). Ceci 
implique plusieurs inconvénients : tous 
les enregistrements contiennent les 
mêmes champs de données. On ne peut 
pas par exemple, avoir certains 
enregistrements avec un champ 
commentaire, et d’autres pas dans le 
même fichier. De plus, la longueur des 
champs est fixe, correspondant néces- 
sairement à la valeur la plus forte : un 
champ NOM, par exemple, doit conte- 
nir au moins 10 caractères, même si l’in- 
dividu concerné peut s'appeler EVE ! 
D'où une perte de place en général 
conséquente ! 

MASTERPFILE innove dans ce domaine, 
de manière très puissante, et sur 
plusieurs points : 

— Même si la structure adoptée 
nécessite de définir chaque champ par 
son nom, la longueur n'est pas 
nécessaire. D'un enregistrement à 
l'autre, les longueurs des champs varient 
et occupent plus ou moins de place, en 
RAM comme sur la disquette. 

— Un attribut particulier de réserve, 
n'occupant qu'un seul .octet dans le 
fichier, permet d’affecter des champs à 
certains enregistrements seulement. 
D'où un gain de taille important dans 
certains fichiers où un champ n'est utilisé 
que pour quelques enregistrements. 

— Un attribut de type DATE associé à 
un enregistrement provoque la mise en 
service d'un filtre de saisie très efficace : 
on peut entrer dans ce champ des dates 
telles que : 
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25 décembre 1986 
1 janvier 1988 


ce qui est diablement agréable ! Ces 
données n’occupent bien sûr que trois 
octets sur la disquette, mais 
apparaissent en visualisation ainsi : 


25 Dec 86 
01 Jan 88 
14 Fev 87 


— Les autres attributs possibles sont 
numérique et caractère. Pour ce dernier, 
une particularité dans le traitement des 
noms propres. En général, ceux-ci sont 
saisis directement, sans titres tels que 
Mr, Mme, etc. La composition d'adresse 
est alors incomplète. Dans MASTERFILE 
8000, on peut entrer une valeur telle que 
Mr DUPONT Michel, tout en triant sur la 
partie ‘‘nom’’ du champ, soit DUPONT ! 
— On peut indexer les fichiers sur le 
premier champ des enregistrements. Le 
changement d'index nécessitera une 
exportation (transposition en ASCII du 
fichier trié) et une importation ultérieure 
du fichier résultat, avec comme nom de 
premier champ, le nouvel index. 


FORMAT 
D’AFFICHAGE 
ET D’'IMPRESSION 


A chaque fichier peuvent être affectés 


différents formats d'édition. On définit 
ainsi le nom des champs qu'on veut 


visualiser, et leur emplacement sur 
l'écran. Chaque enregistrement peut 
occuper jusqu'à 28 lignes (ou plus par 
commutation de pages). 


MASTERFILE 8000 présente dans cette 
fonction des spécificités tout à fait 
remarquables, en voici quelques-unes : 
— Espacement des lignes au pixel près 
à l'écran. 

— On peut tracer des lignes horizontales 
ou verticales, définir des boîtes et des 
fenêtres avec un fond grisé pour certains 
champs. 

— L'inverse vidéo est utilisable à la 
visualisation ainsi que les attributs double 
hauteur, double largeur pour les titres par 
exemple … 

— Dans chaque disque champ, on peut 
modifier la longueur, le caractère de 
remplissage, le nombre de décimales, la 
justification. 

— On peut dernander des totaux par 
colonnes par exemple. 

Votre imagination sera la seule limite aux 
visualisations de vos enregistrements. 
On peut remarquer que toute modifica- 
tion d'enregistrement, suppression, 
insertion. se fait à l'écran avec le for- 
mat courant actif, à l’aide d'un traite- 
ment de texte sophistiqué. 
MASTERFILE 8000 présente aussi quel- 
ques possibilités relationnelles : les don- 
nées affichées à l'écran peuvent prove- 
nir d’un fichier autre que le fichier cou- 


LES CONSEILS TECHNIQUES 
DE SEMAPHORE LOGICIELS 


TASPRINT ET TASCOPY 
DE SEMAPHORE 


Utilisation avec les imprimantes Seikosha 


SP-1000 CPC 


Cette imprimante qui fonctionne norma- 
lement dans sa version originale avec le 
CPC, présente des comportements 


étranges dans sa version ‘CPC. 


Les additions suivantes aux programmes 
de base TASPRINT et TASWORD per- 
mettent de configurer ceux-ci pour fonc- 
tionner avec la version modifiée de l'im- 


primante. 


Dans les deux cas, il suffit, une fois le 
programme chargé, de taper deux fois 
ESC puis, dans le BASIC, opérer les addi- 
tions ci-dessous. Nous soulignerons une 
nouvelle fois ici l'avantage pour ce genre 
d'opérations des programmes nor pro- 


tégés… 


Programme ACOPY - Copie d'écran A4 


510 DATA 14 


645 DATA ‘‘Seikosha sp 1000 CPC" 


Ligne 780 ajouter : ,2335 à la fin 
de la ligne 


2181 ‘Seikosha 1000 CPC 


2182 DATA 4,27,75,100,2,0,0 
2183 DATA 4,27,75,44,0,0,0 
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2184 DATA 4,27,75,124,0,0,0, 
2185 DATA 2,27,49,0,0,0,0 


2335 RESTORE 2181 : RETURN 


Programme POSTER — Copie d'écran 
format A3 


500 DATA 14 


631 DATA ‘’Seikosha sp-1000 CPC" 


Ligne 940, ajouter : ,2571 à la fin 


de la ligne 


2421 ‘Seikosha 1000 CPC 
2422 DATA 4,27,75,1000,2,0,0 
2423 DATA 4,27,75,44,0,0,0 
2424 DATA 4,27,75,124,0,0,0 
2545 DATA 2,27,49,0,0,0,0 


2571 RESTORE 2421 : RETURN 


PROGRAMME TASPRINT 
LE TYPOGRAPHE 


1300 DATA 17 


1465 DATA ‘’Seikosha sp-1000 CPC" 


2930 REM Seikosha SP-1000 CPC 
2940 DATA ‘‘-17" 
2950 DATA ‘2,27, 50" 


rant, pour peu que celui-ci tienne en dis- 
que RAM, et qu'il soit indexé sur le 
champ de liaison entre les deux fichiers. 
Un fichier facture, par exemple, peut ne 
comporter que le code client et les codes 
articles, qualité, etc. Les renseignements 
complets client seront extraits du fichier 
client, et les libellés articles du fichier arti- 
cle très simplement. Cette option très 
puissante est limitée à 8 fichiers secon- 
daires simultanés, et bien sûr en lecture 
uniquement. 


RECHERCHES ET TRIS 


Les options de recherche et de tri sont 
très complètes. Le masque de recherche 
peut faire intervenir un ou plusieurs 
champs, avec toutes les comparaisons 
imaginables. Les résultats de recherche 
peuvent constituer des sous-ensembles 
(sets) autonomes qui peuvent se révéler 
être des outils très puissants de 
recherche multicritère. 

Une option particulière et rare : on peut 
afficher ou imprimer les enregistrements 
dans un ordre différent de celui du fichier 
d'index éventuel, ou différent de l'ordre 
naturel sur environ 1000 fiches en 
spécifiant un autre nom de champ de tri. 
En résumé, un superbe programme de 
gestion de fichier, très puissant et très 
complet, à la portée de toutes les 
bourses, et avec en prime des 
fonctionnalités à faire pâlir de jalousie des 
grands frères beaucoup plus cherslll 


2960 DATA ‘‘2"”,"27","49" 

2970 DATA ‘’2","0"" 

2980 DATA ‘48,96 

2990 DATA ‘*1,4,"27","75", 
96,3" 

3000 DATA ‘’*2',4","27","76", 
64,7" 


Analyse du bloc DATA ci-dessus : 


2950 ‘’2'’, nombre de codes suivant 

dans la ligne 

2950 ‘‘’27' codes ‘’escape'’ pour espa- 

cement normal 1/6 pouce 

2690 ‘’27'',"‘49"" codes ‘’escape'' pour 

espacement mode graphique 

2971 ‘’2'’ nombre de modes garphiques 
‘0‘' bit le + significatif en haut de 

la tête 

2980 ‘‘48'",'‘96"" nombre de points par 

ligne, 480 ou 960 

2990 séquence graphique densité stan- 

dard 

3000 séquence graphique double den- 

sité 


Nous suggérons à tous ceux qui désirent 
tirer parti au mieux de l'imprimante matri- 
cielle, la lecture du livre de Michel 
Archambault ‘La pratique des impriman- 
tes’’ aux éditions Soracom. 

Nous restons à la disposition des lecteurs 
pour toute aide supplémentaire concer- 
nant ces programmes (par écrit seule- 
ment et qu'ils veuillent bien joindre une 
enveloppe auto-adressée et quatre cou- 
pons réponse internationaux). 
Sémaphore Logiciel - CH-1283 La Plaine 
Genève Suisse. 


* 
= 


OFFRE 
_AU 300887 — 


Utilisez à fond toutes les possibilités de votre 


Tout pour programmer 
votre. AMSTRAD 

Véritables passionnés de l'AMSTRAD), les 
auteurs de cet ouvrage ont passé des mil- 
liers d'heures à concevoir, rédiger et tes- 
ter les dizaines de programmes. 

° Des programmes opérationnels à 
100 % De l'utilitaire CP/M à la création 
de graphiques à haute résolution, en pas- 
sant par des jeux sophistiqués ou la com- 
mande synthétiseur de son, vous déve- 
loppez des applications captivantes. 

e Un choix très étendu de langages 
de programmation. Le Basic, le Logo, 
l'Assembleur, le Turbo-Pascal, et ultérieu- 
rement, le Foth, le Modula. 

+ Des trucs et des conseils pratiques. 
Vous découvrez également de nombreu- 
ses astuces : comment transférer du CPC 
464 au 664, ou au 6128, comment insé- 
rer des utilitaires et gagner de la place 
en mémoire. 

+ Vous élargissez le champ d’action 
de votre AMSTRAD. Avec la mise en 
pratique des programmes et des “recet- 
tes”, vous découvrez de nouvelles et pas- 
sionnantes utilisations de votre ordinateur. 


Le complément indispensable 
de votre AMSTRAD 
Présentation : classeur à feuillets 
mobiles plus de 600 pages, grand for- 
mat 21x29,7 cm, 450F TTC plus 
votre cadeau gratuit : 3 mois d'abon- 
nement à CPC. 


LIMITÉE} 
09.87 = 


AMSTRAD 


Vous possédez un AMSTRAD 
CPC 464, 664 ou 6128. 


Voici enfin l’ouvrage que vous 
attendiez pour tirer le meilleur 
parti de votre micro-ordinateur : 
“Comment exploiter toutes 
les ressources et augmenter 
les performances de 
votre AMSTRAD”. 


Il traite en profondeur des 
techniques de programmation, 
ainsi que de la structure interne 
et des extensions 
de votre ordinateur. 


De plus, cet ouvrage restera 
en permanence à la pointe 
de la technique, grâce 
à un service de compléments 
et de mises à jour exclusifs. 


Editions Weka - 12, cour St-Eloi 


75012 Paris 


OR CR CE CS CN CUS GUN CS OUEN CUS OS CN OS ON ON ŒE © 
Editions WEKA 12, Cour St-Æloi, 75012 PARIS Tél. : (1) 43.07.60.50. SARL au capital de 2 400 000 F - RC Paris B-316 224 617 


BON DE COMMANDE 


: À compléter et à renvoyer sous enveloppe, sans timbrer à : 
Éditions WEKA Libre-Réponse n° 2581-75, 75581 PARIS CEDEX 12 


‘* Tout pour augmenter 


les performances 
dé votre AMSTRAD 


Cet ouvrage répond “par le menu”, à tou- 
tes les questions que vous vous posez sur 
le fonctionnement de votre AMSTRAD. 
Il vous indique comment faire pour aug- 
menter. considérablement ses 
performances. 

° Votre matériel n’a plus de secrets 
pour vous. Fréquences d'horloge du 
Z80 CPU, interface PIO 8255, ports 
d'extension. Vous faites le tour complet 
de votre AMSTRAD, des schémas vous 
montrent en détail le rôle de chaque 
composant. 

° Vous mettez en place vous-même 
des extensions. Portez la mémoire de 
votre CPC 6128 à 1 Mo, mettez en place 
une interface, raccordez de nouveaux 
périphériques... Des instructions de mon- 
tage très précises vous permettent de 
procéder, à moindre frais, à toutes les 
opérations qui augmentent les possibili- 
tés de votre AMSTRAD. 


Votre ouvrage est 

toujours d'actualité ! 

Cet ouvrage, unique par sa conception, 
vous fait bénéficier d'un atout considé- 
rable : il évolue à la même vitesse que 
les techniques et le matériel que vous uti- 
lisez. Trois à quatre fois par an, des mises 
mises à jour et compléments vous seront 
envoyés (150 pages, environ 215 F, ser- 
vice annulable sur simple demande). 
Vous disposez ainsi régulièrement de 
nouveaux programmes et d'une informa- 
tion parfaitement à jour sur les nouveaux 
matériels et logiciels. 


Profitez vite de notre offre 
de lancement ! 

Pour passer le plus vite possible à la pra- 
tique sur votre AMSTRAD), réservez dès 
aujourd’hui votre exemplaire de “Com- 
ment exploiter toutes les ressources et 
augmenter les performances de votre 
AMSTRAD”. Remplissez et renvoyez 
sans plus attendre le Bon de Commande 
ci-dessous, accompagné de votre 
règlement. 


NOUVEAU 


e aordi- 
: si par extete 
ne me satisfaisait 
f 0 S 
ais qu'à VOL 
pas totalement, | jours pOur Eu 
Je renvoye immédiatement et int 


[] OUI envoyez-moi aujourd'hui même . exemplaire(s) de “Comment Nom 
exploiter toutes les ressources et augmenter les performances de votre Amstrad”, 


1 volume 21 x 29,7 cm, plus de 600 pages au prix de 450 F TTC port compris, accompa- Prénom 
yné de mon cadeau gratuit. (Offre valable jusqu'au 30.09.87). 

= = Adresse 
Cijoint mon règlement de ... Hands Fée la tes sn . F par 

chèque bancaire L1C.C.P 3 volets à l'ordre des Editions WEKA. Code Postal Ville 

l'ai bien noté que cet ouvrage à feuillets mobiles sera actualisé et enrichi chaque trimestre : 
par des compléments et mises à jour de 150 pages au prix franco de 215 F TTC, port com- Date Signature 
pris. Je pourrais bien sûr interrompre ce service à tout moment par simple demande. CPC 50 


Envoi par avion 110 F par ouvrage. 


Gilles LAINÉ 


Une imprimante possède généralement une centaine d'octets 
de mémoire. Le programme Buffer permet d'obtenir 16 Ko 
de mémoire imprimante. Tous:les octets qui sont envoyés vers 
l'imprimante sont détournés vers une des 4 banques de 16 Ko 
du 6128 et sont stockés. Instantanément l'ordinateur reprend 
le contrôle. Il n'y a plus d'attente du signal busy ni d'attente 
d'impression. 

300 fois par seconde le programme va chercher les octets 
et les envoie vers l'imprimante si celle-ci est libre. 

Pour faciliter l'emploi du buffer, 5 commandes ont été pré- 
vues. Elles sont expliquées à la mise en marche du programme 
BASIC. Elles marchent à tout moment, même si un autre pro- 
gramme est en train de tourner car le test des touches est 
fait toutes les 200 ms. 

Remarque : il n’y a pas d'incompatibilité avec le lecteur de 
disquette mais quelques octets peuvent être perdus en cas 
de mise en route du buffer pendant que l'imprimante marche. 


LISTING 


19 MODE Z:PRINT'MISE EN MARCHE DU BUFFER D'IMPRIMANTE  :EB< 
26 PRINT:PRINT:PRINT"4 COMMANDES POSSIBLE : *:PRINT PC 
39 PRINT'CRTL+] =RESET POINTEUR SYSTEME remise a zero d :KD< 
es memoires" 

49 PRINT'CRTL+2 =MARCHE /ARRET BUFFER (les vecteurs sys >FE< 
temes sont diriges vers le buffer l'ajout de texte se 

erat a la suite de tout ce qui est deja dans le buffer) 


26 FRINT'CRTL+S =REMISE EN ROUTE / FAUSE (les vecteurs UF“ 
systemes sont rediriges vers l'imprimante l'ajout de te 

xte se ferat immediatement a ia position actuelle de ja 

tete d'imprimante)" 

66 PRINT'CRTL+4 =ARRET COMPLET DU BUFFER (redemarrer av :J6< 
ec call ka40ÿ +(crtl+i) +(crtl+2)) 

76 PRINT'CRTL+S =COFY COMPLETE DE L'ECRAN TEXTE" 2FHÈ 
89 FRINT:PRINT"ie programme fonctionne aussi sur les am ?PJ< 
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strad modifies pour oïtenir le ëeme bit“ 

99 PRINT'en effectuant une commande vous verez la coule >< 
ur du bord changer 

199 PRINT'le bord vert est equivalent a marche" AE 
118 PRINT "le bord rouge est equivalent a arret" 2MC< 
129 FRINT'ei vous avez rempli les iék de memoire le sys >RD{ 
tene s'arrete automatiquement.les informations que env 

erez a | imprimante seront imprimees directement a la p 
osition de la tete d'impression. Vous recuperez les ik 


en faisant © call &a466 ;" 
136 MEMORY SA3FF:LOAD “obuffer", BAG: CALL &AdOÿ BE: 
146 PRINT SUF< 


156 PRINT CHR$(7): "SYSTEME EN ROUTE ,BUFFER ARRETE APP :XG< 
UYEZ SUR CRATL+2 QUAND VOUS LE DESIREZ" 


LISTING 2 


16 A=RAIOG:F=RAGDA:L= LOG: MHILE AS=F:FOR AA TO A+IS:READ CéiK= 
VAL" BCE) 2: G2G4K +055 364 (S+K32767): IF A£EF THEN FOKE AE 

24 NEXT:READ D$:T=VAL("&"4D$): IF T£3S THEN PRINT CHR$(7):"Erre 
ur jligne“;L:END ELSE L=L+3:HEND 

36 SAVE ‘obufter",b,kA496,2204 

166 DATA 21,DF,A5,01,66,87,11,1D,A4,CD,EF, BC, AF,32,C7,A5,47C4 
195 DATA 21,D9, mit 6,06, 11,0A,00,CD,E9,EC,C9,F5,C5,D5,0F33 
116 DATA ES, SA,C7,AS,CE, 4F,28, 00, CB,8F,32,C7,A5,ED,4B,C6, 1824 
115 DATA A5, CD, #8, BC, ZE, 17,CD, 1E,BB,20,28,3E, 44, CD, 1E,BE, 1EF9 
126 DATA C4,11,45,3E,41,CD, 1E,BB,C4,44,A5,3E,39,CD,1E, BE, 2662 
125 DATA C4,4E,A5,3E,38, CD, 1E,BB,C4,E5.A4,3E,3i,CD, E, BB, 2E97 
139 DATA C4,73,A5,E1,D1,C1,F1,09,F3,05,D5,E5,01,C4,7F,ED, SA4S 
135 DATA 49,ED,5B,D5, A5, 24, D7,A5,AF.R4,B5,28, 1E, 14,CB, 7F,42B8 
149 DATA 61,60,F6,C4, AC, A4,ED, 49,66,F5,ED, 48,CB,71,20,08, 4496 
145 DATA CD, CD, A5, 13,CB, BA,CE,F2,28, 18, DD,ED,53,D5, 5,22, 5426 
159 DATA D7,A5,61,C6,7F,ED, 49,E1,Di,01,F1,09,6E,20,09,C5,5DFE 
155 DATA ES, ZA. D7,A5,23,CB, 74,26, 1E,22,D7,A5, ZA, D3, 45,25, 6589 
166 DATA CB,BC,CE,F4,22,D3,45,.0i,C4,7F,F3,ED,49,77,0E, C6, 6F1B 
165 DATA ED, 49,FB,37,E1,C1,09,06,16,21,EE. AS, 7E.CD, SA, BE, 7BÏE 
176 DATA 23,16,F9,Ei,C1,21,D09,A5,CD,EC, BC, 3A,C7,A5,CB,57,81C8 
175 DATA C4,21,A5,21,E5,A5,CD,E6,BC, 11,93,43,3A,07, A5, A, 8903 
189 DATA 32,07, À5,D5,CD,3B, BC, ED, 43,C8, A5, C1,4i,CD,36, BC, 736À 
185 DATA C9,21,60,06,22,D7,AS,CB, 74,22,D5, A5, 28, 22, D3, AS, 7A92 
196 DATA C9,11,CA,A5,21,2E, ED, 3A, C7, AS,EE, 64,32,C7,À5, 06,223 
195 DATA 66,CD,39,A5,21,F1,BD,06,03,7E,EB,4E,77,EB, 71,23, A959 
266 DATA 13,19,F6,C9,3A,C7,A5,FE,64,C4,21, A5, 18,08, 3A,C7,BÔBE 
295 DATA ÀA5,C8,97,CC,21,45,3E,64,32,DB,A5,3A,C7,A5,CB,47,BBF5 
216 DATA 29,91,21,E5,45,61,06,87,11,68,A4,CD,E6,BC, 11, 13,BFBI 
215 DATA 63,18,89,CD,78,BB,ES5, 21,09, A5,CD,EC, BC, CD, 11,BC,C8BB 
226 DATA 1 ,32,C8, ÀS,21,01,01,E5,3A,C6,À5,47,6E, 14,CD, 84, CEDS 
225 DATA BB,C5,E5, CD, 73,BB,E1, CD, 66, BB,38,02,3E, 26,CD,31,D794 
238 DATA BD,24,C1,6D,20,EB, 19,E4,3E, 6D,CD, 31, BD, 3E, 9, CD, DESD 
235 DATA 31,BD,E1,2C,ES, 7D,FE, 14,20, CE,E1,E1,CD, 75, BB, CD, EB4C 
249 DATA 81,BB,CD, 19,A4,C9,06,00,00,00,37,3F,C9,C3,AF, A4,EF27 
245 DATA C3,AF,A4,FF,7F, 06,46, 04, 00,00, 00,00, 00, 00, 00, 09,F2FB 
256 DATA 60,00,60,00,00, 00,06, 06,06, 06,06, 06,0, 06,07, 65,F3b7 
255 DATA 72,72,65,75,72,26,6D, 65, 6D, 6F,69,72,65,26,76,6C,F9AI 
266 DATA 65,69,6E,65,69,06,08, 69,00, 06,00, 06,00, 00,00, 06,FB42 


18 
IN 


Nous poursuivons ce mois-ci 
notre étude avec les 
fonctions présentes 
uniquement en CP/M Plus, 
c'est-à-dire celles dont le 
numéro est supérieur à 40. 


VERROUILLAGE 
DEVEROUILLAGE 
D'UN ENREGISTREMENT 


Ce sont les fonctions 42 et 43 quin'ont 
aucune action en CP/M Plus, mais sont 
présentes pour assurer la compatibilité 
avec MP/M, le système d'exploitation 
multitâche et multiposte de Digital 
Research. 

En entrée : C =42 ou 43 DE = adresse du 
FCB du fichier concerné. 

En sortie : A=O 


POSITIONNEMENT 
DU COMPTEUR 
MULTI-SECTEURS 


Rappelons que toutes les opérations de 
lecture ou écriture de CP/M travaillent au 
niveau ‘secteur CP/M'', c'est-à-dire 
128 octets. Cette fonction permet de 


positionner un compteur qui donnera le 
nombre de ‘secteurs’ de 128 octets 
que l'on va lire ou écrire en une seule 
opération. 

En entrée C=44 E=la valeur du 
compteur multi-secteurs 

En sortie : A=0O si pas de problème et 
OFFH sinon. 


POSITIONNE LE MODE 
ERREUR DU BDOS 


Cette fonction permet de choisir la façon 
dont le BDOS va traiter les erreurs physi- 
ques, telles qu’une erreur de lecture sur 
disque ou d'écriture sur imprimante 
par exemple. Par défaut, le BDOS affiche 
un message explicatif de l'erreur qui 
vient de se produire, puis termine le 
programme en cours et redonne la main 
au CCP. 

H est possible de modifier ce 
comportement pour obtenir deux autres 
actions : la première, aucun affichage de 
message d'erreur et retour au 
programme appelant avec un code 
explicatif ; la deuxième, affichage d'un 
message d'erreur avant retour à 
l'appelant toujours avec un code. 

En entrée : C=45 

E =OFFH si on désire retour à l'appelant 
sans affichage 

E = OFEH si on désire retour à l'appelant 
avec affichage 

E= toute autre Valeur différente des 2 
précédentes pour le mode par défaut, 
c'est-à-dire message d'erreur et arrêt du 
programme. 

En sortie : pas de code retour. 

Rappel : en cas de retour à l'appelant, le 
registre À est à OFFH et le registre H 
contient le code de l'erreur physique. 


/ Nr 


TIATION A 


LECTURE DE L'ESPACE 
LIBRE SUR UNE DISQUETTE 


Cette fonction permet de connaître, par 
programme, le nombre d'enregistre- 
ments de 128 octets disponibles sur une 
disquette donnée. 

Le résultat est un chiffre binaire sur trois 
octets, de même nature qu’un numéro 
d'enregistrement en mode ‘‘Random’’, 
c'est-à-dire une valeur sur 16 bits suivie 
d'un octet en général à O. Ce résultat est 
inscrit dans les 3 premiers octets du 
tampon DMA courant (voir fonction 26). 
En entrée : C =46 E = Numéro de l'unité 
où se trouve la disquette (A=0 B=1, 
etc.). 

En sortie : A =OFFH si erreur physique 
et code dans H. 

Taille en nombre de ‘‘secteurs’’ de 
128 octets dans les trois premiers octets 
de l'adresse DMA courante. 


ENCHAINEMENT 
DE PROGRAMME 


Cette fonction permet dans un program- 
me de donner le contrôle à un autre 
programme tout comme la commande 
RUN ‘’Nom de Fichier’ du BASIC. Elle 
permet donc un développement de 
programmes modulaires en assembleur, 
ou même un appel d’un programme écrit 
dans un autre langage, l'appel d'un 
utilitaire, etc. En effet, le mécanisme 
invoqué est le chargement du CCP et le 
passage au CCP de la ligne de comman- 
de que l’on a stockée à l'adresse 
courante du DMA. Bien sûr, une fois 
cette fonction exécutée, le programme 
appelant n’est plus actif et est remplacé 
en mémoire par l'appelé. La ligne de 
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commande passée est terminée par un 
octet à O. 

En entrée : C=47 E = OFFH si on désire 
que le CCPinitialise numéro de USER et 
disque courant aux valeurs du program- 
me appelant. 

SiE=0les valeurs seront les valeurs par 
défaut du CCP. 

En sortie : rien. 


ECRITURE FORCEE 
DES TAMPONS 


CP/M Plus utilise, pour optimiser les 
accès aux disquettes, des zones de 


travail en mémoire appelées Tampons 


(Buffers en anglais). Ceci a pour 
conséquence que lorsqu'un programme 
demande une écriture d'un enregistre- 
ment dans un fichier, cet enregistrement 
n'est pas toujours physiquement écrit 
dans le fichier concerné, mais stocké 
dans un tampon. Ceci peut avoir pour 
effet une perte de données en cas de 
coupure d'alimentation secteur par 
exemple. Pour éviter cela, il est donc 
possible de demander l'écriture forcée de 
tous les tampons sur les supports physi- 
ques concernés. 

En entrée : C=48 E = OFFH si on désire 
en même temps ‘‘vider'’ les tampons 


En sortie : A=0O si OK et OFFH en cas 
d'erreur, code physique dans H. 


LECTURE/ECRITURE 
DU SYSTEM CONTROL BLOCK 


Le System Control Block (SCB) est une 
zone du BDOS de 100 octets qui 
contient, comme son nom l'indique, un 
certain nombre de paramètres du 
système. Cette zone ne doit en aucun 
cas être adressée directement et la 
fonction 49 est destinée à son utilisation. 
La figure 1 vous indique la signification 
des zones accessibles, une croix dans la 


FIGURE 1 : 

Deacvriotion du System Control Einck, 

[ffset RQ Utilisation 

A6 -—- 4 X Regerve au Svateme, 

A5 X Numero de version de CP/M 

AE — m9 4 actets libres pour l'utiiisateur,. 

AQ —- GF x Reserve, 

18 — ii Code retour programme. 

1z — 19 x Reserve, 

LA Nombre de caracteres par ligne de la console, 

LE Pasition horizontale courañte de la consüule, 

1C Nombre de lignes par page de ia console. 

1D — Zi x Reserve, 

L2 — 23 Varteur assignation CONIN: 

24 — 25 Vecteur assignation CONOIUT: 

ZE — 27 Vecteur assignation AUXIN: 

#8 — =9 Vecteur assignation ALIXOUT: 

ZA - CE Vecteur assignation LSTOUT: 

£ Drapeau de mode page console. 

ED — 3% X Reserve. 

ET — T4 Vecteur du mode console. 

ES —- 26 X Reserve, 

27 Caractere de fin de chaine pour la fonction 9 du BDOS. 

Ze Drapeau de sortie imprimantes, | Si console et imprimante. 

59 -— SE x Reserve, 

SC — SD Adresse DMA courante. 

SE Disque-caourant., 

EF — 4% x Reserve, 

4 USER courant. 

45 — 49 x Reserve, 

4A Compteur mylti-secteur, 

&4E Mode ‘erreur BDOS. 

&C — 4F Indique les unites de disque a chercher lors de l'exécution 
d'un programme en .COM,, 

50 Unite de disque utilise pour les fichiers temporaires, 

oi x Disque de la derniere erreur physique. 

52 — 57 X Reserve. 

58 —- 59 Date en nombre de jours ecoules depuis le 11/1/7868. 

SA Heure en Binaire Code Decimal. (BCD). 

3E Minutes en BCD. 

SC Secondes en BCD) 

5D — SE x Adresse de base de la memoire cummune. 

SF — fi X Reserve, 

E2 — EE x Adresse de fin de la TPA,. 
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colonne RO indique que cette zone est 
une zone Read Only, c'est-à-dire qui ne 
doit pas être modifiée par l'utilisateur. 
Pour utiliser cette fonction, il faut créer 
un bloc de contrôle de quatre octets maxi 
qui est composé comme suit : 

e 1 octet donnant l'offset de la zone 
dans le SCB. 

° 1 octet indiquant le type de l'opération 
que l’on veut réaliser : 


FIGURE 2 : 


Exemple d'utilisation 


SCB 
BDOS 


&qu 49 
equ 


coûte moins cher 
qu'une immobilisation 
et une réparation de votre ordinateur. 


Pour CPC 464 
(le lot : clavier + moniteur) 


[2] Moniteur monochrome 


7] Moniteur couleur 


2 Pour AMSTRAD 6128 
C2] Pour PC 1512 


C2 Pour MACINTOSH 


A renvoyer à BRETAGNE EDITPRESS 
La haie de Pan -— 35170 BRUZ 


Ci-joint, un chèque de 


184 F port compris 
184F 
184F 
190 F 


184F 
BON DE COMMANDE 


— OFFH : écriture d’un octet 

— OFEH : écriture d'un mot de 16 bits 
— 00H : lecture 

e 1 ou 2 octets contenant l'octet ou le 
mot à écrire. 

En entrée : C=49 DE = adresse du bloc 
de contrôle de 4 octets maxi 

En sortie : en cas de lecture, A contient 
l'octet présent à l'offset demandé et HL 
contient le mot. 


de la fonction 49, 


Provoque 1? 
d'un CTRL P 
par 


Offset du drapeau de sortis 
l'octet qui 


Ecriture de 


La figure 2 vous donne un exemple 
d'utilisation de cette fonction. 


Voilà, le mois prochain notre article sera 
un peu spécial car consacré uniquement 
à la fonction 50 qui permet l'interfaçage 
avec le BIOS et sera illustré par la liste 
complète d'un utilitaire permettant lec- 
ture et écriture physique d'un secteur sur 
une disquette. 


equivalent 


programme, 


imprimante. 
suit, 


Consoite et Imprimante en meme temps. 


SUPERBE CASQUETTE FM 
190 F seulement ! 


+10F port 
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LOT HN 


PENETROR 


POUR CPC 464 MONOCHROME 


96 
199 
PUR ISIZISI SSI ESS SES S ELITE ESS SLSSSS 
12 ‘ 

138 

149 GOTO 5374 


mai 1987 


KO % % %  % ww 


# 
# 
* 
# 

76 ° * par D. JULIENNE 
*# 
# 
# 


150 FOR +=2106 TO 166 STEP -7:SOUND 1.5,1,#/300,,,30:NE 


XT 


169 MODE 1:INK 6,6:PAPER G: BORDER 9: INE 1,23: INK 2,17:i 


NK 3,9 

170 HET 

186 ‘ + redefinition symboles # 

100 HENNOHENETE 

264 SYMBOL AFTER 189 

219 SYMBOL 186,15,15,31,54,118,259,127,15 

220 SYMBOL 181,249,240, 248,12, 14,295, 254, 240 
230 SYMBOL 182,15,15,31,49,113,255,127,15 

246 SYMBOL 183,240,249,248, 140, 142,255, 254, 249 
256 SYMBOL 184,15,15,31,48,113,255,127,15 

260 SYMBOL 185,249, 240, 248, 106, 119,255, 254, 240 
270 SYMEOL 186,6,32,62,63,62, 32 

280 SYMBOL 190,15,27,54,58,108,151,181,13 

290 SYMBOL 191,224,48,232,88, 118, 165,59, 172 
306 SYMBOL 192,0,5,15,99,8,78,21,5 

310 SYMBOL 195,0,192,32, 206, 49,80, 10,88 

320 SYMBOL 194,6,0,1,4,16,43,21,0 

330 SYMBOL 195,9,0, 128, 48, 68, 189, 88,0 

340 SYMBOL 196,0,9,0,1,8,2,5,0 

350 SYMBOL 197,0,9,0,64,136,40,64,0 

360 SYMBOL 209,192,224,176,223,239,299, 252,63 
370 SYMBOL 261,64,64,64,252,242,254,b3,252 
380 SYMBOL 203,295,299, 299, 299, 295, 299, 299, 299 
396 SYMBOL 264,1,3,7,15,31,63,127,255 
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Dominique JULIENNE 


Entrez dans les profondeurs 
insondables de galeries 
mystérieuses. Votre soucoupe 
saura-t-elle continuer son périple 
au long des quinze tableaux qui 
parsèment le jeu ? 


La suite se trouve dans le listing. 


406 SYMEOL 295,128, 192,224, 246,248, 252, 254, 259 
410 SYMEOL 206,255,127,63,31,15,7,3,1 

429 SYMBOL 267,255,254, 252, 248,244,224, 192,120 
436 SYMEOL 208,255,255,127,127,63,63,31,31 

444 SYMBOL 299,255, 295, 254,254, 252, 252, 248, 248 
450 SYMEOL 210,15,15,7,7,3,3,1,1 

46ë SYMEOL 211,246,240,224,224,192,192, 128, 128 
470 SYMBOL 212,31,31,63,63, 127,127,255,255 

480 SYMBOL 213,248,248, 252, 252,254, 254,255, 299 
496 SYMBOL 214,1,1,3,3,7,7,15,15 

909 SYMBOL 215,128,126,192,192,224,224,249,240 
919 SYMEOL 216,63,127,255,192,127,31,12,12 

929 SYMBOL 217,295, 255, 295,0, 295, 295, 24, 24 

930 SYMBOL 218,292, 254,295, 3, 254, 248, 49,48 

949 SYMBUL 219,63,31,143,199,227,241, 246,252 
990 SYMEOL 226,252,248,241,227,199,143,31,63 
J69 SYMBOL 221,231,231,231,231,231,231,231,231 
9/0 SYMEOL 222,66,126,255,231, 126,69, 24, 86 
969 SYMBOL 224,62,62,62,32,32,32,32,112 

399 SYMEOL 225,0,126,126,126,126,126,126,6 

666 GOSUB 636 

b19 GOSUE 1766 

629 GOTO 926 

BED HR 

644 ‘ *# INITIALISATION # 

BSD‘ HHEMNNMNEHER 

66 MODE 1 

676 ENV 1,16,5,2,5,-10,4 

684 ENT 1,4,12,5,19,-5,2 

699 DIM u(26),t1(29) ,w(26) ,rs(26),vit(26) 

708 v=0 

719 X=0:Y=250 

720 ex=580:ey=208 

130 am=217 

749 CHE=4 

750 yy=y 


766 A$(1)=CHR$ (189) +CHR$ (181) : A$ (2)=CHR$ (182) +CHR$ (183) 


1A$ (3) =CHR$ (184) +CHK$ (185) 
778 FOR F=1 TO 49:BL$=BL#+CHR$ (143) :NEXT 


1PENETROR 


#LE£ 
?KF< 
064 
?VH£ 
*EJ< 
#DÉ< 
#EL< 
>UM< 
>DN< 
2MP< 
#DF< 
KG 
2 AH£ 
2MJ< 
30€ 
2HL< 
> DM< 
#KN< 
#UP< 
:J0i 
RUES 
2FH£ 
AR 
2FÉ£ 
#AL< 
2HM£ 
PRN< 
>AP< 
?BQ< 
HR 
3BH< 
HL'AES 
FA LE 
2WL£ 
?TM£ 
:BN< 
FLP< 


2K0< 


786 d$(1}=CHR$ (190)+CHR$ (191) : d$ (2) =CHR$ (192) +CHR$ (193) JR 


1 d$ (3) =CHRS (194) +CHR$ (195) : dé (43 =CHR$ (196) +CHR$ (197) : d$ 


(= " 


798 bat$=" "CHERS (216) +CHR$ (2183 +" FIT< 
CHRS (216)+CHR$ (217)+CHR$ (218i+" "+CHR# (224) +CHR$ ( 
216)+CHR$(218)+" * 
869 EB$=CHR$ (96) >CJE 
8i9 bbb$=CHR$ (186) ?CK< 
820 bombes=£i FVLE 
836 VIE=3I FRM£ 
844 fuei=362 >INé 
850 WINDOW #1,1,49,4,5:PAPER #1,1:CLS#1:LOCATE 1,20:PEN >WP< 
L:PRINT bI$:LOCATE 1,3:PEN 3:FRINT BL$:LOCATE 1,21:FRI 
NT EL$ 
866 LOCATE 5,1:FEN 2:PRINT'CARBURANT : ":LOCATE 25,1:PRIN :W0< 
T'VIES:":LOCATE 29,23: PRINT "SCORE: " 
876 LOCATE 1,23:FEN 2:PRINT"EOMEES:":FOR 4=10 TO Z0:PEN >ZR< 
JELOCATE f,23:PRINT CHR$ (252) ; :NEXT 
886 FLOT 366,383, 1: DRAM 18,382: DRAN 18,272: DRAW 290,272 3PT< 
*PLOT 142,48, 1:DRAN 326,48: DRAW 324,30:DRAM 142,36: DRAW 
142,48 
896 FOR F=25 TO 34:LOCATE F,2:PEN Z:PRINT CHR#(228):NEX >RU 
ï 
989 FOR 25 TO 366 STEF 2:PLOT +,2380,2: DRAM f,374:NEXT >CK< 
918 TAG:RETURN #RL£ 
920 R=t(1):G=u(i)iT=rs(i)ivitevit(iiiUzuti):mm=219:60T0 >EM: 
978 
DO  HHEEONNE FIN 
946 ‘ * PROG.PRINCIFAL * ?BF< 
COUP TETE SES S : ) >LO< 
969 ” 2QR< 
978 TAG ENT< 
980 X=X+4 #LU< 
990 IF INKEY(Ga)=0 THEN K=X-3:5c=5c-1: SOUND 1,200,1,3 DOVE 
1990 IF INKEY(D)=0 THEN x=x+3:sc=5c+2:SOUND 1,800,1,3 VE 
1916 IF INKEY(B)=6 THEN Y=Y-8:SOUND 2,406, 1,3 ?UC< 
1926 IF INKEY(H)=6 THEN Y=Y+8:SOUND 2,406,1,3 ID 
1936 IF INKEY(I)=0 AND BOMBE=6 AND bombes>1ô THEN SOUND >ME< 
3,99,3,4:GO0SUE 1514 
154% FLOT -2,4,2:MOVE X, Y:FRINT A$(mn-218): #ÈF: 
1996 sc=sc+i 3HG< 
1666 IF x22 AND (TEST(X-2,V-2)€50 OR TEST (X+8,Y+2) 450 D :KH< 
R TEST(X#B,Y-16) 5% OR TEST (X+24,Y+2)<50 OR TEST(X+24,Y 
-16)€:9 OR TEST(X+32,Y-8)<50) THEN GOSUB 2669: x=0: y=yy 
1679 MOVE U,T:FRINT " *; A'AË 
1986 IF X-55:Ù AND endevy THEN vyv=vvtiiuzuivui)sr=tivv) SRE 
is=n(vv})stsrs (vv)svitavit(vv): MOVE U,T:PRINT" “à 
1698 T=T+vit:MM=MM+1: IF MM=222 THEN MM=219 3RL£ 
1199 IF T=R OR T=5 THEN vit=-vit #JCÉ 
1116 PLOT -2,-2,3:MOVE U,T: PRINT CHR$ (MM): iTD< 
1120 IF mm=221 THEN FLOT -2,-2,3: MOVE 550,46: PRINT USIN >QE< 
6 "#HH#':sc: 
1136 IF X>649 THEN X=0:YY=Y:G60TO 1776 3RF< 
1146 IF BOMBE=1 THEN GOSUE 1549 >VG£€ 
1159 fuel=fuel-6.5:1F fuel<=26 THEN MOVE x,y:PRINT" “5 SLH£ 
:GOSUB 2069: y=yv: =0 
1166 IF fuel<=59 THEN SOUND 1,169,2,3 ALJ< 
1176 PLOT fuel,386,0:DRAW fuel,374 VE 
1186 MOVE X,Y:PRINT" "s FL 
1196 GOTO 986 ?LM£ 


SEEN 
* prog princ. 2 # 
EEE 


1264 ‘ 
1216 ‘ 
1226 ‘ 


1236 IF INKEY(qa)=6 OR INKEY(bi=& OR INKEY(hi=6 OR INÉE : 


Y(d)=6 THEN TAG:MOVE à, yy:PRINT® 
0 1236 

1246 TAG 

1258 X=X+4 

1266 IF INÉEY(Ga)=ÿ THEN X=X-Z:sc=5c-1: SOUND 1,206,1,3 
274 IF INKEY(D)=6 THEN x=x+3:sc=5c+2: GOUND 1,800,1,5 
1286 IF INKEY(B)=6 THEN Y=Y-8:SOUND 2,460, 1,3 

1296 IF INÉEY(H}=6 THEN Y=Y+8: SOUND 2,4600,1,3 

13564 IF INKEY(I)=6 AND BOMBE=6 AND bombes>14 THEN SOUND 
3,96,3,4:GO0SUB 4419 

1319 FLOT -2,6,2:mm=mmti: IF mm=222 THEN mm=219 

1329 IF tt£>1 THEN MOVE ex,ey:FRINT* “à 


“s#:G60TO 1246 ELSE GOT 


1336 IF yey THEN ey=ey+CHE ELSE IF y£ey THEN ey=ey-CHE : 


1346 TS=TS+1:1F TS=7 THEN CHE=4:TS=6 
1350 ex=ex-B:1F ex{126 THEN ex=48ù 


1366 IF tt<:1 THEN PLOT -2,-23,2:MOVE ex,ey:PRINT CHR$(m > 


LE 
1376 FLOT -2,-2,3:MOVE X,Y: PRINT A$(mm-218); 
1389 sc=sc+i 


1596 IF x>2 AND (TEST(X-2,Y-2)450 OR TEST(X+8,Y+2) 36 0 : 


R TEST(X+8,V-16)€56 OR TEST(X+24,V+23 450 OR TEST(X+24,Y 
-16)€:9 OR TEST(X+32,Y-8)<:9) THEN GOSUB 2969 

1469 IF mm=221 THEN FLOT -2,-2,3:MOVE 556,46:FRINT UGIN 
6 "#HKHh':5c; 

1416 IF X>649 THEN {=6:yy=Y:G0TD 1779 

1426 IF BOMBE=1 THEN GOSUB 4446 

1436 fuel=fuel-6.5:1F fuel£=28 THEN MOVE x, y: PRINT" "5 
:GOSUB 2669: y=yy: x=0 

1446 IF fueli=56 THEN SOUND 1,169,2,3 

1456 FLOT fuel,380,6:DRAW fuel,374 

1466 MOVE X,Y:PRINT" "3; 

1476 GOTO 1254 

1480 ‘HEIN 

1496 ‘ * BOMBE LARGUEE # 

1500 ‘HP 

1519 BOMBE=] 

1529 TAGOFF:bombes=bombes-1:LOCATE bombes, 23: PRINT" “:T 
AG 

1534 XB=X+8:YB=Y-8 

1549 MOVE XB,YB: PRINT" *: 

1559 YB=YB-6: XB=\B+4 

1566 IF TEST(XB+8,YB-8)=2 THEN 1670 ELSE IF TEST(XB4E,Y 
B-8)€:4 THEN 1630 

1576 MOVE XE, YB:PRINT EB$:: RETURN 

1588 ‘HOME 

1598 ‘ + BOMBE ECLATE # 

LG HAAAREEHARRINRERS 

1619 ‘ manque 

1628 ‘ ------ 

1630 SOUND 1,2900,26,7,1,1,16: MOVE XB-2,YB:PRINT" ‘“ssb 
ombe=0:G0T0 1180 

1645 SOUND 1,1606,29,7,1,1,6:1F (tabl-2/3)=INT((tabl1-2 
}/3) THEN MOVE EX,BY:PRINT® "::G0T0 1460 ELSE MOVE XB-2 


?FH€ 
#DJ< 
?1EK 
?EL< 
?DM£ 
:JN€ 
?PE* 


#DF4 
+E6< 


2RFÉ 


#16 
2YHE 
2MJ< 


2MK< 
?WL< 
2GMÈ 
?EN< 
PRP< 
ALRES 
> JG 
? THE 
2FJ< 


?KK< 
FIL 
?BM£ 
?MN< 


FWP< 
3XQ€ 
PR 
?FH€ 
»EJ< 
>EK< 
3PLX 


2XM< 
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,YB: PRINT" 
1656 ‘ eu 
16ëÿ ‘ —— 
1676 SOUND 1,1906,49,7,1,1,2v: IF fuel<292 THEN FOR f=fu 
el T0 fuel+8:PLOT f,2389,2:DRan F, 374: NEXT: fuel=fuel+16: 
sc=sc+20 

1689 CHE=2: TS-ù 


“;:G0T0 1180 


1696 TAGOFF:FEN 3:1F bombes: THEN LOCATE bombes, Z3:FR : 


INT CHR$ (252): CHR$ (252) : bombe: -bombes+2 
1766 TAG 
1719 bombe=ÿ 


1724 IF tabl/3=INT(tabl/3) DK tt=1 THEN MOVE BX+4,BY:PR KL 


>GN 
>NP 
>ROK 


INT" ‘;:GOT0 1466 ELSE MOVE 4B-16,YB-4:FRINT"  “s;:60 

T0 1184 

1730 ONE 2FME 
174% ‘ # DESSIN DU DECOR +# MN 
170 RAM FHP< 
1766 ‘ :RQ° 
1776 TABL=TAEL+1 FIR< 
1786 IF (TABL-1)/3=INT((TABL-1)/3) AND tabLi:i THEN G0S ATX 


UB 4870 


1799 ON tabl GOSUB 2464,2460. 469,2860, 2869, 2860, 3216,3 : 


330,3330, 3800, 3800, 3800, 4260. à 60, 4240 


1806 ON tabl GOSUB 2516,290v, :450,3710,4370,2510, 2980, 3 


450,3910,4370,2510, 2986, 3456, :919,4376 


1816 TAGOFF:LOCATE 1,20:PEN 1 PRINT bI$:LOCATE 1,Z1:FEN > 


3:PRINT blé 


1829 LOCATE 1,3:PEN 3:PRINT b1$::LOCATE Î,9:PEN 1: PRINT 


bl$ 
1834 MINDOW #3,1,49,6,19:FAFEn #3, 0:CLS#3 


1849 IF Eabl=1 THEN RESTORE ..26 ELSE IF tabl=2 THEN RE WF 


STORE 25956 ELSE IF tabl=4 THEN RESTORE 2724 ELSE IF tab 
1=5 THEN RESTORE 3924 ELSE I+ tabl=7 THEN RESTORE 3190 
ELSE IF tabl=8 THEN RESTORE 490 ELSE IF tabl=ié THEN K 
ESTORE 3669 

1859 IF tabl=1i THEN RESTORE 950 ELSE IF tabl=15 THEN 
RESTORE 4126 ELSE IF tabl=14 1HEN RESTORE 4769 


1868 IF tabi/3£>INT(tabl/31 THEN PEN £: TAG: MOVE 6, yy:FR : 


INT a$(i): 
1876 IF tabl/3=INT(tabl/3) THEN 4536 


1889 TAGOFF:FOR f=6 TO 19:F0R 4=1 TO 49:READ datas:IF d ; 


atas=® THEN 1936 

1899 PEN 1 

1994 LOCATE g,f 

1919 IF datas>i3 THEN PEN 2:r datas=23 THEN FEN Î 
1926 PRINT CHR$(292+datas) 

19359 NEXT:NEXT 


1946 FOR 4=2100 TO 100 STEP -/:SOUND 1,f,1,#/300,,,3:N > 


EXT 


1956 FOR f=6 TO 1:FAPER O:FEN SLOCATE 14,3: PRINT'TABLE DR 


AU No"stabl:FOR g=0 TO 100:NEXI:LOCATE 14,3:PEN 0: PAPER 
3:PRINT'TABLEAU No";tabl:FÜOK 3=0 TO 1609:NEXT:NEXT: PAFE 

R 4 

1960 TAGOFF:LOCATE 39,25:PRINI* "2: TAG 

1979 IF (tabl-2)/2=INT((tabl-21/3) THEN tt=1:60T0 1236 
1988 TAG:PLOT -2,-2,3:F0R F=1 10 ENDE:MOVE uiPi,rs(F)iC 

H=216+P:1F CH=222 THEN CH=219 

1990 PRINT CHR$ (CH): 
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2TTÉ 
HUE 
DKV< 


>UW< 


2696 NEXT #HC< 
2616 IF INKEYiga)=à DR INKEY(b}=6 OR INKEY(h)=6 OR INKE >XD< 
Y(d}=$ THEN TAG: MOVE 6,yy:FRINT" “::G0T0 2026 ELSE GOT 


0 2616 

2624 IF TABL=1 THEN RETURN ELSE GÜTD 920 2ME< 
2020 HAE 21F£ 
2649 ‘ #  EXPLOSION  +# 06: 
RUNURRE CEE EE EEETETEEE :BH: 
2664 IF fuel{=26 THEN 2246 #JJ< 


2676 FOR #=2196 TO 166 STEP -26:SOUND 1,f,1,+/300,,,30: 3BE< 
NEXT:FOR f=1 TO 5:MOVE x, y: PRINT d$($)::FOR k=i TO 175: 
NEXT:NEXT 

2689 IF fuel£=56 THEN FOR ful=26 TO 296 STEF Z:FLOT ful PÂL£ 
380,2: DRAW ul, 374: NEXT: fue1=302 

2696 IF tabl/3=INT(tabl/3) THEN MOVE ex,ey: PRINT" "ss DM: 
AGOFF:LOCATE 1,haut:PEN 1: PRINT DI$:LOCATE 1,bas: PRINT 

b1$: TAG 


2196 VIE=VIE-1:1F VIE=25 THEN 5849 CD 
2110 IF tabl=3 THEN x=b:y=202:ex=48ÿ: ey=262 2UE< 
2126 IF tabl=é THEN x=0:y=202:ex=400: ey=262 #QFé 
2139 IF tabi=9 THEN x=6:y=130:ex=406: ev=156 VG< 
2146 IF tabl=12 THEN x=0:y=314:ex=480:ey=314 2HHE 
2150 IF tabl=15 THEN x=b:v=202:ex=48h: ev=202 DJ 
2169 IF TT=1 THEN X=0: Y=YY #PÉ£ 


2176 TAGOFF:LOCATE VIE, 2:PRINT" “: TAG :JLé 
2166 IF (tabl-1)/3=INTittabl-1)/3) THEN MOVE 0, yy: PRINT M: 
a$(1};:ELSE MOVE x, y:PRINT a$ii); 

2199 IF INKEY(ga)=6 OR INÉEY(b)=à OR INKEY(h)=0 OR INÉE :RN< 
Y(d)=9 THEN TAG:MOVE 6,yy:PRINT" "::60T0 2269 ELSE GOT 


0 219% 

2266 RETURN KES 
2210 HHEHHHHOHHHN ME £ 
2226 ‘ # PLUS de FUEL # BG< 
2230 HER >FH£ 
2246 sounds=200 Han 
2259 x=x+liy=y-2ichi=chitis IF chi=4 THEN chisi ALES 
2266 PLOT -2,-2,2:MOVE x,y:PRINT a$(chi); #BL< 


2276 IF TEST(X-2,Y-2)€>9 OR TEST(K+8,Y+2)<30 OR TEST(X+ >DM< 
8,Y-16)£0 OR TEST(X+24,Y+2)<:0 OR TEST(X+24,Y-16)<;0 0 

R TEST(X+32,Y-8)€>6 THEN GOSUE 2070: x=û:y=yy: GOTO 2686 

2289 MOVE x,y:PRINT" "::sounds=sounds+ié: SOUND j,sound HN 
5,18:G0T0 2256 


2290 HE sAP< 
2506 ‘ # DECOR NO 1 * *F£ 
2310 HER 37G< 


2326 DATA 0,4,1,1,1,1,ololotobotolotolololols1 3000 ÉHE 
DO ELENEEELd ET 
2336 DATA 0,0,0,4,1,1,1lslobsbslststslototls75 8008 2 TJ< 
.0,0,0,0,0,8,1,11tttititihili 
2340 DATA 0,0,0,0,0,0,0,0,0,0,4,1,1151514t417,0,0,0,8 KKX 


2350 DATA 0,0,0,0,0,0,0,0,0,0,0,6,1,1,1,1,5,0,0,0,9,0,0 ?BL 


2398 DATA 6,6,0,0,0,6,14,16,0,6,0,6,0,6,0,6,6,6,0,6,6,6 AG 
lll,1,1,0,0,9,0,9,0,0,8,9,6,0,6 

2469 DATA 6,6,0,0,6,0,1,1,0,6,6,9,0,6,6,0,0,0,6,0,6,0,1 NG< 
Ht,1,1,1,1,1,3,0,6,0,6,6,6,0,6,0 

2419 DATA 9,6,0,0,0,2,1,1,13,6,0,6,0,8,6,6,6,0,0,0,6,2, >BH< 
1,1,1,11,1,1,1,1,3,0,8,0,6,8,0,0,0 

2420 DATA 4,6,6,6,2,1,1,1,11.8,0,12,1,3,6,6,0,6,6,6,2,1 3MJ 
vlsloteisltlst,i,1,6,0,6,0,6,0,0,2 

2436 DATA 6,6,2,1,1,1,1,1,1,1,1,1,1,1.6,8,9,8,8,2,1,1,1 3KE< 
slololslutitelht,0, 08,0, 0, 0,21 

2449 DATA 0,2,1,1,1,1,1,1,1,1,1,1,1,1,3,0,0,3,1,1,1,1,i #HL£ 
dlll,t,li.1,38,8,8,8,8,1,1,1 

2454 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,141,1,141,141,1,1 SM 
ptrlslslslsliltiliii4,15,16,1,1,1 

2466 u(1)=192iu(2}=336iui3);=608 MN 
2470 t(1)=235iwt1)=180: t(2)=316imi2)=200:t(3)=28eu(Ti= UPE 
lédirs(1}=200: rs (2) =26b: rs (3) 2266 

2486 vit(i)=givit(2)=igivit(i)=16 Mg: 
2496 ENDE=3 :FR 
2506 RETURN :NH£ 
2516 INK 6,6: PAPER 9:BORDER G:INE 1,23: INF 2,15: INR 3,9 4PJ< 
RETURN 

2520 HHAHMHEHHNE 3EK< 
2536 ‘ # DECOR N 2 # >PL£ 
2540 HÉHEHEEHH >GM: 
2996 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 INK 
slelalstitihihihtititihltili 

2364 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5 32P< 
.0,9,9,8,9,0,0,9,4,1,1,1,1,1,1,1,i 

2974 DATA i,1,1,1,1,1,1,9,0,6,0,8,6,4,1,1,1,1,1,1,1,3,8 420 
,2,9,8,8,8,0,6,6,8,1,1,1,1,1,5,8,6 

2586 DATA 1,1,1,1,1,1,5,0,0,0,0,0,6,0,4,1,1,1,1,1,1,0,8 :NR< 
.2,9,14,15,16,9,8,0,0,1,1,1,1,1.8,9,6 

2994 DATA 1,1,1,1,1,5,08,0,6,6,6,0,6,6,0,1,1,1,1,1,1.0,6 3RT< 
19,9,10,1,11,4,6,0,0,1,1,1,1,1,9,8,8 

2666 DATA 6,4,6,0,0,4,0,6,6,6,0,0,0,0,0,1,1,1,1,1,1.8,6 ?RJ< 
,2,0,1,1,1.0,0,8,6,1,1,1,1,1,8,8,6 

2616 DATA 6,4,0,6,6,0,6,6,14,16,4,6,6,0,0,6,1,1,1,1,1,6 3VE£ 
10,9,8,1,1,1,8,8,8,6,1,1,1,1,5,0,0,9 

2620 DATA 9,6,6,0,6,4,6,12,1,1,3,0,9,0,6,14,15,16,1,1,1 ?EL£ 
19,0,9,9,1,1,1,9,0,6,0,1,1,1,1,0,0,0,0 

2630 DATA 6,0,0,0,0,0,6,10,1,1,1,13,8,0,4,16,1,1,1,1,7, >0M£ 
0,0,0,0,1,1,1,0,0,0,6,1,1,1,1,0,6,6,0 

2640 DATA 4,9,0,4,14,15,16,1,i,1,1,11,8,0,0,4,1,1,1,1,9 >XN< 
12,9,0,8,1,1,1,0,9,0,0,4,1,1,1,8,6,6,2 

2696 DATA 1,1,1,1,1,1,1,1,1,1,1,1,0,6,9,0,4,1,1,5,8,6,6 :UP< 
10,0,1,1,1,0,0,8,0,0,1,1,5,8,0,0,1 

2666 DATA 1,1,1,1,1,1,1,1,1,1,1,1,0,8,0,4,0,23,23,8,0,0 >KQ< 
,0,9,21,1,1,0,9,8,0,6,14,16,6,6,0,8,1 

2670 DATA 1,1,1,1,1,1,1,1,1,1,1,1,3,4,0,0,0,23,23,4,9,0 :{R< 
D2ll,1,1,3,0,0,0,0,25,23,0,0,0,12,1 

2686 DATA 1,1,1,1,1,1,1,1,1,1,1.1,1,3,0,4,6,23,27,6,6,6 IT 
iishhliti,59,0,0,23,23,0,9,0,19,1 

2690 ‘HAE EUX 
2706 ‘ * DECDR NO à # 3BE< 
ZT HP 3 {L£ 
2720 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1414141414141,1,1,1 3VM< 


URL LELILLL COTE 
se Dal le NE el LEE RONA IN 
RÉEL LIL IALELA 
2746 DATA 1,1,1,1,1,1,5,0,0,8,0,0,0,0,4,1,1,1,1,1,1,1,1 ?AP4 


LRU RE EOElA 


5,0,0,0,9,0,0,0,0,6,1,0,0,0,0,9,1,1 


2836 DATA 1,1,1,1,1,13,0,0,0,0,0,0,0.0,14,16,2,1,1,1,1 NP: 
lstutitstsls1360,0,0,4,0,0,0,0,0,1,1 

2846 DATA 1,1,1,1,1,11,0,14,15,16,0,2,1,1,141,1,1,1,1, ?X04 
1,1,1,1,1,1,1,1,11,0,0,0,0,0,0,8,0,2,1,1 

2850 DATA 1,14h4l4lsbobollotsdstsdodstololilotututits ?RRE 
1,1,1,1,1,1,1,3,14,16,0,0,0,0,2,1,1,1 

2860 ui1)=80:U(2)=256: 013) =448: 0 (4)2592 

2876 T(1)=250:T(2)=290: T (332270: T (4) =268 

2886 W(1)=160:H(2)=160:W(3)=166:N(4)=180 

2890 RS(1)=200:RS (2) =220:RS (3) 2210: RS (4) =180 
2906 VIT(L)=10: VIT (21210: VIT (3) =5: VIT (4) =4 

2916 ENDE=4 

2926 INK 0,0: BORDER @: INK 1,8: INK 2,23: INK 3,15 
2936 SYMEOL 219, 255,255, 255, 195, 195, 195, 195, 255 
2940 SYMBOL 220,255, 195, 195, 255,255, 195, 195, 255 
2956 SYMEOL 221,255,195,195, 195, 195, 255, 255, 255 
2980 W=0 

2970 RETURN AVE 
2980 IN 6,6: BORDER 0: INK 1,8: INK 2,22: INK 3, 16:RETURN EUX 


2998 ‘HART MX £ 
3660 ‘ + DECOR ND 5 +# ND: 
OLD HAE SVE< 


,151,0,0,0,0,23,23,23,0,0,0,0,6,1,1,1 
346 DATA 1,1,1,3,0,0,0,0,2,1,141,11,1113,0,00,0,1 AH 
11,0,0,0,0,23,22,23,0,0,0,0,0,1,1,1 
i 


3078 DATA 0,0,0,0,0,23,23,23,23,0,0,0,0,0,0,0,0,4,1,1,1 >JL< 


3686 DATA 0,0,0,0,0,23,23,23,23,0,0,0,0,0,0,0,0,0,14,16 >1M< 
111,9,0,0,0,8,0,1,1,1,1,1,1,3,9,0,0,0,0 
3699 DATA 1,1,1,1,1,1,11,1,1,11120,0,0,0,8,141,7,4 >YNE 


79 


,9,9,0,8,0,14,15,18,1,1,1,1,3,0,0,0,8 


3106 DATA 1,9,0,0,0,0,0,0,0,0,4,1,1,1,13,0,0,0,8,1,1,9, 


3118 DATA 1,3,0,0,0,0,0,0,0,0,0,1,1,1,11,6,0,9,0,23,23, > 


0,0,0,0,0,0,0,1,1,5,0,0,4,1,1,1,1,1,3 


3126 DATA 1,1,3,0,0,0,0,0,0,0,0,1,1,1,1,8,8,9,6,23,27,0 4 


3136 DATA 1,1,1,3,0,0,0,0,0,0,2,1,1,1,1,3,6,0,6,23,23,0 ? 


,0,0,0,0,2,1,1,9,4,8,9,8,0,0,4,1,1,1 


3140 DATA 1,1,1,1,1,3,8,0.2,1,1,1,1,1,1,1,3,0,2,1l4141 > 


itt1,1,0,0,0,0,0,9,0,0,1,1,1 


3159 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,141,141,1,1,1 3TKE 


slbllt,i,3,9,0,0,6,0,0,2,1,1,1 
3160 ‘HN 
3176 ‘ # DECOR NG 7 # 
TO HER 


3190 DATA 1,1,1,1,1,1,lilililibihotittsl1,5,0,0,0,0 | 


0,0,0,0,4,1,1,1,1,111lllt,i 


3206 DATA 1,1,1,1,5,0,6,0,0,0,0,0,0,4,1,1,1,1,0,0,0,0,0 > 


3219 DATA 1,1,1,1,0,9,0,0,0,0,0,8,0,0,4,1,1,1,9,9,0,0,0 à 


.2,0,8,8,0,1,1,1,1,1,btttslii 


3229 DATA 1,1,1,9,0,0,0,0,9,0,6,6,6,0,6,1,1,1,8,6,6,0,8 à 


3259 DATA 6,06,6,6,0,0,6,0,6,0,0,6,0,0,0,1,1,1,0,6,0,6,6 2XJ< 


,1,0,0,8,0,4,1,1,115llilstst,t 


3249 DATA 0,0,0,0,0,0,0,14,15,16,0,0,0,0,9,1,1,1,0,0,9, >2K< 
0,0,1,0,0,0,0,0,0,6,1,11,11,1,11,1 

3256 DATA 1,1,1,1,1,1,1,1,1,13,0,0,0,0,0,1,1,1,0,0,0,8, >UL< 
0,1,3,0,0,0,0,0,8,1,1,1,1t1,11,1 

3240 DATA 1,1,1,11,11,1,1,11,0,0,0,0,0,1,1,1,8,8,8,9 >OM< 
16,1,1,3,9,0,0,0,0,4,1,1,1,1,1,1,1,1 

3270 DATA 1,1,llltstlotsl000,0,0,4,1,1,0,0,0,0, >RN 
0,1,1,1,3,0,0,0,0,0,4,1,1,1,1,1,1,1 

3280 DATA 1,1,1,1hlll5t510,00,0,0,0,41,0,0,9,8, >XP< 
»,6,1,1,1,3,0,0,0,0,0,4,1,1,1,1,1, 

3296 DATA 1,1,1,1,11,1,1,1,1,13,0,0,0,0,0,0,1,0,6,6,6 >CGé 
Bll11,3,0,0,0,0,8,4,1,1,1,1,1 

3300 DATA 1,1,1,1,1,1,1,1,1,1,11,0,0,0,9,0,6,6,0,0,0,0 >JGt 
0,0,6,1,1,1,1,0,0,0,0,0,0,4,1,1,1,1 

3310 DATA 1,1,111l,litl1,0,0,0,0,6,0,0,0,0,0,0, >DH£ 
0,0,8,1,1,1,1,3,0,0,0,0,0,0,0,0,0,9 

3320 DATA 1,1,11,1h1litslititiil,14,16,0,0,6,0,8,0 >QJ< 


0,14,16,0,11,1,1,1,13,0,0,0, 0,8, 0,0, 0,0 
3330 u(1)=160: :U(2)=288:U(3)=464 
3340 T(1)=300:7(2)=2954 T (3)=235 
350 W(1)=180:W(21=115:W(3)=145 
3360 RS(11=240:RS (2)=205:RS (3) =190 
3370 VIT(L)=10: VIT (21215: VIT (3)=5 
3380 ENDE=3 
3390 W=0 
3406 SYMBOL 219,243, 247, 238, 252,251, 255, 255, 255 
3410 SYMBOL 220,255, 255, 255, 251, 252, 238, 247,243 
3420 SYMBOL 221,255, 255, 255, 223, 63, 119, 239, 207 
3430 TAGOFF:LOCATE 39,25:FRINT" ": TAG 
3440 RETURN 
3450 INK 0,0: BORDER 4: INK 1,17: INK 2,7: INK 3,21:RETURN 
T6 ‘HN 


80 


?TN< 
AP< 


3476 ‘ # DECOR NO 8 +* 

2480 HHHHEMER 

3496 DATA 1,1,1,1,1,1,1,9,0,0,23,23,6,0,4,1,1,1,1,1,1,1 
5dl119,0,0,23,23,0,4,1,1,1,1,1,1,1,1 

3566 DATA 1,1,1,1,1,1,7,9,6,6,23,23,6,0,0,4,1,1,1,1,1,1 
5111,1,0,0,6,23,23,0,6,4,1,1,1,1,1,1,1 

3916 DATA 1,1,1,1,1,1,9,0,0,6,23,23,6,5,0,0,1,1,1,1,1,1 
11,0.0,0,0,23,23,0,0,0,4,1,1,1,1,1,1 


11,0,0,0,0,14,16,0,0,0,0,1,1,1,1,1,1 

3536 DATA 1,1,1,1,1,1,0,0,0,12,1,1,13,0,0,0,1,1,1,1,141 
111,0,0,0,0,19,11,0,0,0,8,1,1,1,1, 
3546 DATA 1,1,1,1,1,1,0,8,9,10,1,1, 
,1,1,8,0,0,0,1,1,0,0,9,0,6,1,1,1 
3556 DATA 1,1,1,1,1,1,0,0,0,1,1,1,1, 
1,7,0,0,0,0,1,1,3,0,0,8,8,1,1ttii 
3569 DATA 1,1,1,1,1,5,0,0,0,1,1, 
,9,0,0,8,0,1,1,1,13,0,0,0,4,1,1, 


#Lü4 
CRE 
SMT< 
AIX 
#K< 
#KL£ 
> YMi 
SUN£ 
#TF£ 


2JQ 


3370 DATA 1,1,1,1,5,0,0,0,0,14,16,1,1,6,6,6,6,1,1,1,1,1 :YR€ 


,5,0,0,0,0,2,1,1,1,11,0,0,0,0,4,1,1,1 


3586 DATA 1,1,1,5,4,0,0,9,2,1,1,1,1,6,6,0,8,1,1,1,1,5,0 > 


3590 DATA 1,1,5,0,0,0,0,2,1,1,1,1,1,0,0,0,0,0,27,23,0,0 5 


0 l2lsll153,8,0,0,0,4,1,1 


3660 DATA 1,5,0,0,0,0,0,1,1,1,1,1,1,3,0,0,0,0,23,23,0,0 2NE< 


,0,0,0,18,1,1,1,1,1,1,1,3,0,0,0,0,23,23 


3616 DATA 9,0,0,0,0,0,2,1,15blll4l,3,0,0,0,23,23,0,0 à 


Pb ribililitititstits153,0,0,0, 23,23 


3626 DATA 4,0,0,0,0,2,1,111,11,1,15143,0,023,23,0,0 à 


0211 1tl11,1,1,8:153,0,0, 23,23 

360 ‘ HHHHAHHNR 

3646 ‘ * DECOR NO 10 * 

365 HE 

3666 DATA 1,14115l4lslstutstststilitutatutotolulutitst 
litslihlitt550,0,0,0,0,8,0,0 


Sére DATA LL LIL DLL EL ELLE it, 1 


3730 DATA 1,1,1,1,1,9,0,0,0,0,0,10,1,11,0,0,0,0,0,4,1, 
1,5,0,0,0,0,0,0,0,0,14,18,0,8,0,2,1,1,1 


3740 DATA 1,1,1,1,7,0,0,0,0,0,2,1,1,1,3,0,0,0,0,0,4,5, à 


0,0,0,0,0,0,8,0,2,1,1,1,1,111,1,1 


0,0,0,0,0,0,0,2,1,1,1,1,1,1,1,1,1,1 


3766 DATA 1,1,1,5,0,0,0,0,12,1,1,1,1,1,1,1,13,0,0,0,0, à 


si 
0,0,0,8,0,9,0,2,1,1,1,1111t11,1 
3770 DATA 1,5,6,0,0,0,0,0,10,1,1,1,1, 
0,0,0,0,0,0,12,1,1,1,1,1515851115151 

La 


3786 DATA 9,0,9,0,0,0,0,0,1,1,1,1, 


1,1,1,11,0,0,0,0, à 


1,1,8,0,0,8,0, à 


>EP< 


RE 


= 
re 


0,8,0,0,0,19,1,1,1,1,1,1,1,8,i,1,1i 
3796 DATA 6,0,0,0,8,14,18,2,1,1,11141,1,1,1,3,14,15, >DMé 
16,0,0,14,16,8,8,1,1tttslitilititititsi 

3806 u(1i=112:U(2)=272:0(3)=416: 0 (4)2560 FHM 
3810 T(1)=235:T(2)=23S: T (32270: T (412710 AN 
3826 Wil)=i3érMi2r= 120 Nt3i=120:Wid)=210 FUP4 
3830 RS(1I=1B0:RS (2) =180:RS (3) =200: RS (4) 2260 > 
3846 VIT(L)=S:VIT (228: VIT (3) = 10: VIT (4)=10 ÿJR< 
3850 ENDE=4 3HT£ 
3860 W=D >HUX 
3870 SYMBOL 219,60, 102,219, 153,219, 102, 60,0 >Q< 
386 SYMBOL 220,60, 126,255, 189, 219,90, 102, 8û #LWE 
3806 SYMBOL 221,60, 126, 255, 255, 255, 126, 192, 60 >JK£ 
3909 RETURN >UN£ 


3918 INE 6,6: BORDER 6: INK 1,23: INK 2,11: INE 3, 16:RETURN :RP< 


3920 HOMME ?XQ< 
3936 ‘ + DECOR NO ii * sHR£ 
2948 HN S1TÉ 


3956 DATA 0,0,0,0,23,23,23,0,0,0,0,23,23.0,0,0,0,0,0,0, AUX 
BOLD LERELEL LL 

3946 DATA 0,0,0,0,23,23,23,0,0,0,0,23,23,0,0,0,0,0,0,0, RUE 
0,0,0,14,15,1811lttitsltslstihilitsi 

3976 DATA 0,0,0,0,23,23,23,0,0,0,0,23,23,0,0,2,1,1,13,0 EW< 
.0,0,0,22,23,4,1,1,1,1,1,1,1,1,1,5,0,0,0,23 

3980 DATA 0,0,0,0,14,19,16,0,0,2,1,1,1,1,1,1,1,1,11,0,0 WX< 
.0,0,23,23,0,4,1,1,1,1,1,1,1,5,0,0,0,0,23 

3996 DATA 4,4,0,0,1,1,1,1,1lilslatolotototolsls3, 0,00 PYE 
,23,23,0,0,4,1,1,1,1,151,0,0,0,0,2,1 

4606 DATA Llilitilitolotatilitilt 50064 is1,3,0,0 DAEX 
123,23,0,0,0,1,11,141,1,8,0,0,9,1,1 

4619 DATA 1,1,1,1,1,5,8,0,0,0,0,0,0,,0,0,0,0,4,1,1,1,3 UF< 
,23,23,0,0,0,1,1,1,1,1,1,0,0,0,0,1,1 

4026 DATA 1,1,1,1,5,0,0,0,0,0,0,6,0,0,0,0,0,0,0,0,4,1,1 3WG£ 
1,1,0,0,0,8,1,1,1,1,1,0,0,0,8,14,15 

4636 DATA 1,1,1,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,1 ©HH£ 
1,1,0,0,0,8,1,1,1,1,1,0,8,0,0,1,1 


4960 DATA 1,1,1,4,0,9,0,9,0,0,0,0,0,0,9,0,0,0,9,0,0,0,0 >DL4 
,9,1,3,0,0,0,9,0,23,23,0,0,9,0,9,1,1 

4678 DATA 1,1,1,13,0,9,9,6,0,0,0,9,0,2,1,1,1,1,3,0,9,0, Mc 
0,9,1,1,3,0,0,0,0,23,23,0,0,0,0,6,1,1 

4ÿ8 DATA 1,1,1,11,8,0,0,0,0,0,9,0,2,1,1,1,1,1,1,3,8,0, UNI 
0,2,1,1,1,3,0,0,0,23,23,0,0,14,16,2,1,1 


ADD HMS FAP< 
4169 ‘ + DECOR NO 15 + »LF< 
MLD HAN 216€ 


4126 DATA 9,0,0,4,1,1,11151,l4l4ttl,1,5,0.0,0,0,0,0 3NH4 
,0,0,0,0,0,4,1,1,1,1,1,5,5,9,0,0,0 


,0,0,0,0,8,8,6,1,1,1,5,6,0,8,0,0,8 
4146 DATA 9,0,0,0,8,1,141,1,1,1,5,0,0,0,0,0,0,0,2,1,1,3 3TK£ 
,14,15,16,0,8,9,8,1,1,5,0,4,0,0,14, 16,2 


llsts3,0,0,0,0,0,0,0,8,8,2,1,1,1 


4180 DATA 1,1,1,3,0,0,0,0,0,0,2,1,1,1,5,0,8,0,0,0,1,1,1 à 


0:7,0,0,0,0,0,0,0,1,11,1,1,1,1 


4196 DATA 1,1,1,1,3,0,0,0,0,2,1,1,1,5,0,0,8,0,0,6,4,1, ? 


1,1,1,9,0,9,0,0,0,0,0,4,1,1,1,1ix1 


4249 DATA 1,1,1,1,3,0,0,0,0,0,0,4,1,3,4,0,0,0,0,0,0,0, à 


10,11tttitstilsls8,0,0,0,0,0,8,0 


4256 DATA 1,1,1,1,1,1,3,6,14,15,15,16,1,1,1,3,0,14,15, 


15,16,2,1,1,141,1,l1lslslslsisisdr1d 1819, 16, 0 
4266 u(1)}=112:U(2)=288:U(3)=432:0(4)=576 

4270 T(1)=264:T(2)=304:T(3)=316:T(4)=196 

4280 W(1)=112:H(2}=128:W(3)=192:H(4)=128 

4290 RS(1)=192:R6 (2) =240: RS (3)=288:RS (4)=144 
4300 VIT(L)=8: VIT (2)=16: VIT (3)=4: VIT (4)=2 

319 ENDE=4:WV=0 

4326 SYMBOL 719,24,66,126,231,231, 126, 69, 24 
4336 SYMBOL 226,66, 126,251,195,231, 126,66 

4544 SYMEOL 221,295, 231,195, 129,129, 195, 231,255 
4356 TAGOFF:LOCATE 39,25:FRINT" ":TAG 

4566 RETURN 

4370 INK 1,6: INK 2,24: INÉ 3,18:RETURN 

AB HE 

396 ‘ + CANONS # 

4400 ‘HER 

4416 BOMBE=1: tps=ù 

4426 TAGOFF:bombes=bombes-1:LOCATE bombes, 23: PRINT" "eT 
A6 

4436 bx=x+24:by=y-4 
4440 MOVE bx,by:PRINT" “ssbx=bx+10 

4456 tps=tps+i:IF tps=10 THEN bombe=ÿ:G60TO 4496 
4460 IF TEST(Bx+8,By-8)=2 OR TEST(Bx+12,By-8)=2 DR TEST 
(Bx+16,Bv-8)=2 THEN 1676 


4476 IF TEST(Bx+8,By-6)=3 OR TEST(Bx+12,By-8)=3 OR TEST : 


(Bx+16,By-8}=5 THEN 1834 

4489 MOVE bx,by:PRINT BBb$3 : RETURN 

4496 RETURN 

4500 ‘HN 

4516 ‘ + DECOR NO 3,6,9,12 ET 15 + 

4520 HHHHHEHHHAHPOPHENEE 

4530 tt=0:IF tabl=3 THEN haut=18:bas=9: x=0: y=202: GOSUE 
4620:ex=46%:ey=202:FOR f=11 TO 15:LOCATE 38,#:FRINT CHR 
$(225)5;"  "INEXT ‘ 

4549 IF tabl=6 THEN haut=14:bas=5: x=b: v=282:G0SUB 4620: 
ex=480:ey=202:F0R #=16 TO 11:LOCATE 38,#:PRINT CHR$ (22 
}3"  "iNEXT 

4559 IF tabl=9 THEN haut=20:bas=12: x=6:y=138:G0SUÛB 4626 
tex=480:ey=138:FO0R f=<18 TO 19:LOCATE 38,f:FRINT CHR$ (22 


#HM£ 
FTN£ 
3BF< 
>DQ< 


2WP< 


10 


81 


95"  "iNEXTELOCATE 34,19: FRINT" 


4560 IF tabl=12 THEN haut=i3:bas=5: x=ü:v=314:GOSUB 4676 : 


sex=4Bdiey=314: FOR f=6 TO 19:LOCATE 38, #:FRINT CHR (225 
far ENT 

4570 IF tabl=15 THEN haut=16:bas=9: x=0: y=202:GOSUB 4620 
sex=480rey=202:FOR 4211 TO 1S:LOCATE 36, F:PRINT CHRS(22 
Ghj" "NET 


4588 FOR 1=2166 TO 196 STEF -7:SOUND 1,f,1,4/380,,,36:N >] 


EXT 

4596 FOR f=0 TO 1:PAFER G:FEN Z:LOCATE 14,3: PRINT'TABLE 

AU No'";tabl:FOR g=6 TO 169:NEXT:LOCATE 14,3:FEN 6: PAPER 
Z:PRINT'TABLEAU No": tabl: FOR g=û TO 1GG:NEXT:NEXT: FAFE 

R 

4606 yy=y 

4614 GOTO 1236 

4629 PAPER #1,1:WINDOW #1,1.46,5,bas:CLS #1:FAPER #2,1: 

WINDOW #2,1,46,19,haut:CLS #2:FEN 2: TAGOFF:LOCATE ,hau 
t-1:FRINT baté 

4626 TAGIMOVE x, y:PRINT a$i1)::TAGOFF 


4644 FOR f=6 TO IB:FEN L:FOR e=38 TO AG: LOCATE e,f:FRIN A 


T CHRS(I4SI ENEXT:NEXT 


4656 FOR mur=bas+i TO haut-i:FEN {:LOCATE 6,mur: PRINT CF 


HR (225) : CHR$ (229) : NEXT 
466 RETURN 

4670 FA HHHEEMNNE 
468% ‘ + DECOR NO 14 # 
RES HAE 


UT: 


2GV: 


4706 DATA 0,0,0,0,6,1,1,5,0,4,1,1,1,5,0,0,0,0.0,0,0,4,1 VW 


1,50,4,1,11,5,0,0,23,0,0,0,27,0 


4716 DATA 0,0,0,0,8,1,1,13,0,0,1,1,5,0,0,0,0,0,0,0,0,0, > 


4,1,1,0,0,0,4,1,5,0,0,0,23,0,0,0,23,0 


4720 DATA 1,3,0,0,0,4,1,11,0,2,1,5,8,0,0,0,14,16,0,0,0, :QP 


0,0,1,1,0,0,0,0,1,0,0,0,0,23,0,0,0,27,0 


4736 DATA i,1,13,0,0,0,4,1,1,1,1,0,0,0,8,12,1,1,1,13,0, :V@: 


0,0,6,1,0,0,0,2,7,0,0,0,12,1,1,1,1,1,1 


4746 DATA 1,1,11,0,8,0,0,1,1,1,1,8,8,6,8,18,1,1,1,11,6, 3 


0,0,8,1,13,0,0,1,9,0,0,0,18,1,1,1,1,1,1 


4756 DATA 1,1,1,3,0,0,0.1,1,1,1,0,0,0,4,.1,1,1,1,1,0,0,0 3JTé 


8,1,11,0,2,1,8,0,0,8,14,16,1,5,0,0, à 


au DATA 1,1,1,1,0,0,0,1,1,1,1,0,0,0,0,1,1,1,1,1,8,8,8 > 


111,1,1,0,0,0,0,1,1,5,0,0,8,6 


4776 DATA 1,1,1,1,0,0,9,14,15,15,16,0,0,4,12,1,1,1,1,1, à 


4786 DATA 1,1,1,1,0,0,0,11,1,1,0,0,0,18,1,5,8,4,1,11,0 > 


Db,tll1,8,0,0,10,1,5,0,0,0,0,0 


4796 DATA. 9,0,0,23,0,0,0,6,1,1,7,0,0,0,1,1,0,8,0,1,1,9, > 


d,0,6,1,1,1,7,0,0,8,1,1,0,0,0,0,0,0 


4806 DATA 9,0,0,23,0,0,0,8,1,1,9,0,0.0,1,1,0,0,0,1,1,6, 3 


3,6,4,0,0,9,23,0,6,0,6,1,1,3,6,6,0,0,0 


4836 DATA 9,0,0,23,0,0,0,0,0,22,0,0,2.1,1,1,1,1,1,1,1,1 © 


530,0,0,0,23,0,14,15,16,1,1,1,3,6,0,9,0 
A4D HAE MMEOTE 


4856 ‘ # CHANGEMENT DE ZONE : BONUS # 
CCE TPS TTC CECECELCECLSECECELESEE 


82 


3RU< 


4870 INE 6,1: BORDER Î:INE Î,92INE 2,16: INE 3,21 PH 
4886 WINDOH #3,1,49,6,10:FAPER #3,6:CLS#: 64: 
4094 PEN Z:TAGOFF:LOCATE 4,9:FRINT'ERAVO !! Vous avez p :WY: 


4966 LOCATE 1,3:FEN 3:FRINT bi$: AFP 
4914 PEN 1:LOCATE 1,11:FRINT“Vous vous approvisionnez e :HQ: 
n bombes et encarburant et avez une vie supplementaire" 


4924 PEN Z:LOCATE 9,14:PRINT'Maintenant la ZONE"; INTO(E 2YRE 
abl-1}/3+15".,,%;:LOCATE 1,17:FEN 2:FRINT"Appuyer sur 
FIRE: pour la zone suivante":FEN 3: TAG 

4939 TAGOFF #DT* 
4946 FÜR k=fuel-2 TO 306: SOUND 1,466-k,1,5:FLOÔT k,386,2 UD 
2 DRAM k, 374: NEXT 

495% FOR f=bombes T0 26:F0R 1=1 TO S:PEN 3:LOCATE #,2%: EVE 
PRINT" "FOR p=6 TO IG:NEXT:LOCATE f, 23: SOUND 1,561,1,4 
:SOUND 2,592,1,4:PRINT CHR$ (252) 5: FOR p=4 TO Z6:NEXTINE 
XT:NEXT: fue1=362: bombes? 

496% FOR f=6 TO 11:GSOUND 1,319,5,5:SOUND 1,478,5,9:LO0CA :KH< 
TE vie, 2:FRINT" “:FOR p=6 TO 360:NEXT:LOCATE vie, 2: FRINT 

CHR$ (228) :FOR p=6 TO 66: NEXT:NEXT 
4978 vie=vie+l:TAG:FOR m=1 TO INT (RND#36)+20:PLOT -2,-2 ;DKi 
4,3 MOVE 556,46:sc=sc+i: SOUND 1,306-24m,1,5,,,5:PRINT US 
ING “HH#f'iscs:NEXT 

4986 GOSUB 627ÿ 
490% WINDOW #3,1.460,6.19:FAPER #3, 0: CLSH#I 

5996 INK 6,6: BORDER 6 
9614 ON tabl GOSUE 2514,2986,3494,3916,4374,2510,2900,3 KG 
456,3916,4376,2510,2986,34584,3910,4376 


9929 RETURN 2NH< 
SD HMS ARE 
9949 ‘ + REGLES DU JEU # 2FÉ£ 
096 HAE ENLS 
3666 SYMEOL AFTER 186: SYMBOL 183,15,19,31,49,113,293,12 KM 
7,15:SYMBOL 163,246, 240,248, 1406, 142,295, 254, 249 


9074 MODE i:DIM TEXTES (15): BORDER 17:INE 6,17: INE 1,641 NN 
NE 2,8,16: INK 3, 12:debut=i:fin=5 
9088 texte$(1}=" REGLES DU JEU +EP4 


5994 texte$(2i=" +Vous etes 1 vaisseau ?"+CHR$ (183) :6Q< 
+CHR$(183)+"+4 de la NASÂtenvoye sur une planete incon 
nue : ?BYLTAGENE IV, ]" 
9104 texte$(3)="  +Votre MISSION est simple : expl >16+ 
orercette planete avec seulement ?SIX SONDES. ]" 
9119 texte$(4)="  +Vous allez en fait Voyager dans 1 :NH 
esentrailles de *BYLTAGENE IV : des grottesi5+ au total 
divisees en :5 zonest de ?troisetapes. j" 
9120 texte$(5)="  ?Appuyer sur ?ENTER? pour la suite, ] ?XJ< 
9139 texte$(bi=" ETAPE N 1 :+ des ?OVNIS+ indestruct >TK£ 
ibles + parcourent l'ecran de bas 
en haut.Vous avez des ?E0M 
ur detruire les ba- ses ennemies. ]" 
9146 texte$(7)=" ETAPE N 2 :+ Ici pas d'ovni mais to *AL{ 
ute à + une serie de ?MURG+ a trou- 
er grace a votre ?CANON. ]" 
9196 texte$(8i=" ETAPE N 3 :+ un ?OVNI+ se deplace L >WM£ 


BES+ po 


fo ncr + jement et fonce droit 5 
vous. Vous avez un ?CANDN+ 
alentir sa course. ]" 
3168 texte$ig)=" “Appuyer sur 
ü 
J170 texte$(iti="  +Cependant vous ne dispose: que de 
#18 BOMEES+ et d'une ‘reserve limitee en CARBURANT. +0 e 
st pourquoi 11 vous faut *detrui-re+ les bases ennemie 
s+ pour recuperer ‘fu-el et armement. ]" 
388 texte$(ili=" +ÿVous avez le choix entre 
virdu JOYSTICR {Ji+ ou du 2CLAVIER (Lis j'itextesi{ai=" 
FE stdroite 4 =+tbas À / =#hiaut 7\ =toauche 
“SPACE =+oombe. i" 
3194 testet(izi=" 
âppuver sur :J7 ou sur :C* 
0266 FOR f=debut TO fin 
9216 lect=lectri 


atera 


u 
ra 
gr 


pour Fr 


pour commencer, j" 


#ENTER® pour ia suite. :F 


VOUS 3er À 


J226 IF MID$itertetifi.lect. 1123" THEN lect=ib0T0 529 FE: 


ÿ 
9236 IF MIDéitextesit}, 
1 


lect,ii="st 


5246 IF MIDhitextetifi .lect,l:="5" THEN lect=lect+i:FEN à 


5204 IF HID$iterteb(fi,lect,ii="4+" THEN ject=lectti:FEN EN: 


Sa60 PRINT CHRS (143): PRINT CHR$iBj: 
fi,lect,i}: 

5276 IF MID$itextetifi,lect.i) 
d,4,84, 1 

3288 GOTD 5214 

0296 FRINT:PRINT: PRINT: SOUND 1,156,26,7:FDR | 
:NEXT: NEXT 

9396 IF INÉEY(16)=4 THEN PAPER#I .Gibt=bt+4:HINDON #i,i, 
dé, TS, IS:CLS #i:debut=itbt:fin=5tot:LOCATE i,5:6070 5466 


3319 IF INÉEY(45)=6 THEN ga=/#id=75ih=7%ib=73t1=76:G0T0 1 


159 
Je IF INÉEY(GZ}=6 THEN ga=/iid 
156 
D GOTD 5564 
SEA © HR 
dot ‘ * TITRE # 
O0 ‘HR 
9274 MODE 2:EORDER 2%: INE 4,28: INE 1,25 
o360 FOR f=2166 TO 146 STEF -i6:GOUND 1,5,1,+4/306,,,3û: 
NGAT 


d=22ih=56:b=6i: 


396 FOR f=21 TO 4 STEP -1:INE 4, f: BORDER f:GOUND 1,246 AU 


0,19,7-1/3,,,169:SOUND 2,1006,15,7 
TO 1906:NEXT 

5499 FÜR +=6 TO 156 STEF 2 

9416 FLOT +,383-f,1:DRAW f+16,399-f:DRAN 823 

AN 659-1,383-#F:DRAN 659-1,48+F:DRAN 623-+5,324+f: ORAN 16+ 
1,32+#:DRAN +,48+#:DRAW 4,383 

5426 NEXT 

9456. FOR +=7 TO à STEF -H:SOUND 1,3006,dû45#f,5,,, 65e 
XT 

3446 FOR f=ÿ TD 

“:NEXT 


-#/3,,,18:NEXT:FOR 1=û 


Ei=d TO 2:60 : 


266: PLÜOT INT (RND#646), INT (RNDæ66 +52, 1 à 


THEN lect=iect+i:FEN EL: 


PRINT MID (testegt NF 


3 THEN SOUNE 1,1,2,i Ab 


i=47: 6070 >CL: 


-$,2398-$: DR ELLE 


FUN 


El 


9456 INE 6,6: BORDER 6: ÎNE 1,25 
3466 SYMEGL Fe 204 

5476 SYMEOL 2 
5486 SYMEGL 2 
249% FLÜT 
3566 TAGOFF 
J919 FÜR g=235 TO 16 STEF -1 
So28 FOR +=9 TG 72 

9936 PEN 1 


<6e, 136,34, Lea 15 &.54, | Î30,5 
-2,-2, 1: TAG: MOVE 3,23: FRINT" ue 


5549 IF TEST(S,qg)=i THEN LOCATE t-ZS+INTI 6-93 /8),26-qiP 37 


RINT CHRS INT (RND#2) +256; 


5956 NEXT:FOR j=7 TO à STEF -1:S0UND 1,260+g#36,5, j: Si *E 


06+9+26,5, 1: SOUND A en ea 
3966 TAG:MOVE 5,23: PRINT" ‘se TAGOFF 

5574 FOR #=7 TO 6 STEF -i:SOUNE 

ï 

5566 FOR f=0 T0 2:FOR g=26 T0 4 STEF -G,!1:INE 

FOR a=ù TO 26 STEF 4. i:INE 1,9:NEXTINEXT 


1,9: NEÂT: 


1,2906, 684146, $,,,S:NEX EU 


9294 GOSUE 3996 F4 
Jodb texté=" NS LIL 2H: 
doses tenus Frogramme concu et reaiise par D.JULIEN 
Miss pouver sur <ENTER: pour jouer qu sur £k> pour 

lire la regie du jeu... esse 


Séié FOR f=1 TO 184: LOCATE 19,29:PRINT MID# texts. f.64) :CN: 


5626 IF INKEY(I8:=ù THEN SOUND 1,476,46,5 
ÿ,5: 6070 565% 


Séié IF INÉEY(S6)=0 THEN FOR 426 TO 7:GOUND 1,860, 26424 ; 


1,4,.,2:S0UND 2,1500,244+24f,5,,,6:NEXT:GOSUR 5696: G0T0 
564 

Sédé NEXT:G0T0 561% 

5658 LOCATE 2,25:PRINT"Vous choisissez le JOYSTICE (J) 
ou le CLAVIER (Ci (touches:7, À, 7, \, SPACE} 


Sébd IF INÉEY(45)=û THEN regl=i:qa=74id=73ih=72:bz73i is : 


Té:FOR +=6 TO 7:S0UND 1,848,10+##2,9,,,2:GOUND 2,1564, 1 
Q+445,f,,,6:NEXT:GOSUE 5696: 60T0 156 

Sé7à IF INÉEY(62)=0 THEN regl=i:ga=7i:d=2%:h=56:b=6t: 
47:FO0R +=0 TO 7:S0UND 1,846, 10+2#4,4,,,2:GDUND nn Î 
9+241,4,,,60:NEXT:GOSUR 569%%:60T0 154 

0686 GOT 5668 

5698 s=27 

S706 s=0-11INE 1,5:F0R 28 TO SH: NEXT: IF s=@ THEN 5719 
ELSE 5764 

5716 RETURN 

720 ANNE 


573 ‘ +# Mission accomplie * 
70 ROME 


5756 LOCATE 5,14:PEN 1:FRINT"Vous avez accompli votre m * 


is5sion" 
5768 LOCATE 2,16:PRINT"avec un score excellent de‘isc:* 
points" 


5774 LOCATE S,i8:FEN S:PRINT'Fret pour une nouvelle mis : 


# 


sion * 
5788 IF INKEYi343=6 THEN MODE Zi RUN 5656 
5799 IF INKEY(46i=6 THEN END 

5996 GOTO 5786 

510 +6 


:SOUND 2,376,4 : 


d624 ‘ # FERDU # 
SRED OH 
5844 PAPER #1,0:WINDOWN #1,1,44,5,19:CLS #1 


5856 PEN 1:TAGOFF:LOCATE 8,8:FRINT"Vous etes lamentabie : 


RER 

J8é64 FEN Z:LOCATE 1,16:FRINT" Vous n'etes pas digne de 
la confiance que j'avais en vous pour accomplir cettem 
ission. “ 

3678 FEN SiLOCATE 1, 14:PRINT" 
e extreme, je vous laisse une nouvelle chance atin der 
acheter votre incompetence intoierabie." 
9684 PEN 1:LOCATE 1,18: FRINT“Appuyez sur 
mas de larves" 

5999 GÜTO 6546 

5764 MODE Z:RUN 5656 


SOLE OH 
9928 ‘ # MUSIQUE * 
5026  O#####HHh4## 
9948 ‘ mission impossible 
SON Sneezes 


3964 DATA 568,0,568,476,426,568,6,368, 616, 602 
5976 DATA 20,2,25, 19,14,26,2,25,10,16 

5984 DATA 119,142,196,119,142,201,119,142,213,23 
19,143,84,119,142,84,119,142,89,89,95 

3996 DIM aa(120i,bb(1263 ,cc (126) ,dd(126), 1010 ,mt16) 
&@69 FOR f=1 TO 91 STEF 16 


6519 RESTORE 5964:FOR le=i TO 19:READ 1(ie):NEXT:FOR le : 


=1 TD 6:READ mile):NEXT 
&ÿ26 FOR g=1 TO 16:aatf+g}=](gisbb(f+q)=miag):NEXT 
634 MEXT 


648 cotii=iläiccisii=tdéicc(4@i=ji9:cc(4ii=l4iscc (si à 


=ig:cc(Sir=ld2icctéb)=ticcléti=230:cc{76r=jiQrcci7ti=i 
AiscciBéi=119:cc(Bli=i2icc(96)=119:ccigi)=l4éscct100)= 
é:cc(i91)=89 

656 cct32}=198ecc (42)=261:cc (522713 
=Bô: ce (821=64: cc (92)=89: cc (142)=95 
666 dd(32}=86: dd (42) =66: dd (521 =86: dd 82) =b6:ddi72;=bb: 
dd (82}=86: dd (92)=8ù: dd (142) =B6 

4676 dd(36}=5: ddi31)=5: dd (46) =5: dd (41}=5: dd (56) 
}=5: dd (665 =5: dd (bii=5: dd (76)=5: dd (71)=5: dd (86)=5 
=5: dd (96) =5: dd(91)=5: dd (146)=5: dd (141)=5 

6686 LOCATE 23,25:PRINT"Appuver sur 
te." 

6696 FOR #=2 TO 191 

6166 IF f:25 
1823 THEN SOUND Z,ccifi,ddtf},7:GOUND 2,1966,4,G:IF #-{ 
INT(4/19))#165=1 THEN SOUND 2,1090, 15,6: SOUND 3,cc(f#1) 
80,7: SOUND Z,cc{f+1},94,6:SOUND Z,cctf+1),48,S:GSOUND 2 
.cc(f+1),34,4:SOUND 2,cc(#f+1},26,3 


icciôii=fi3:cc(72 


:dd (81) 


6116 IF f<11 OR f:191 THEN SOUND 1,aatf},2.5*bb(f},6 EL A 


GE SOUND 1,aa(#),2.5#bb(f),6 

4126 SOUND 1,2000,7,6,,,1 

6138 IF INFEY(47)=6 THEN RETURN 
b148 NEXT 

&iSù GOTO 6090 

&ié5 ‘ You Are My World iCOMMUNARDS) 
&170 
b189 DATA 239,19,0,10,213,10,0,10,190, 1,0, 10,179,19,0, 


84 


=Sidd{si à 


{SPACE pour la sui : 


Mais etant donne ma bont :ÿ£< 


SR: espece d a ‘Mr: 


213,1 EZÉ 
sil l SRE 


#LKE 


AND f-CINT(5/10))#165=û AND F-CINT(F/16)}# KHE 


>UR€ 


16,157,19,0,10,142,16,6,14,127,10,0,19,119,16,8,10 
6196 DATA 239,10,239,10,196,10,239,10,159,14,239, 
,20,239,26,159,20, 299,20, 196,10,739,18 


6246 DATA 239,16,196,16,196,16,190,16,159,14,199,19,119 : 


.24,196,20, 159,20, 190, 20, 196,16, 196, 1 
b216 DATA 239,10,213,10,179,16,213,16,159, 
.29,213,26,199,26,213,36,179,19,213,i6 


19,217, 


6226 DATA 119,16,319.16, 127,10,319, 19,142,16,319,19,159 à 


.19,219,16,179,14,319,10,190,10,319,19,213,10,319,10,23 
9,14,319,14 
6230 RESTORE 6186 

5246 FOR f=1 TD B:READ aa,bb,cc.dd 
6256 SOUND 3,2606,1,7,,,34 

6Ebë SOUND 1,aa,bb#1.3,7 
6274 IF INÉEY(i)=6 THEN RETURN 

6284 NEXT 
6298 RESTORE 6196 

209 FOR f=i TD Z6:READ aa,bb,cc,dd 
6319 SOUND Z,cc,dd#i.3,é 

6324 SOUND 1.aa,bb#1.3,7 

6319 SOUND 3,2606,1,7,,,10 

6246 IF INKEY{1)=6 THEN RETURN 

356 NEXT 

6266 RESTORE 6196 

6576 FOR f=1 TO 29:READ aa,bb,cc, dd 
6284 SOUND 2,cc,dd*1.3,ë 

6396 SOUND i,aa,bb#1.3,7 

6469 SOUND 3,2666,1,7,,,10 

6416 IF INKEY(1)=0 THEN RETURN 

6420 NEXT 

6436 FÜR f=6 TO & STEP -1 

6446 SOÛND 1,239,15+$,f+1:S0UND 2,319, 15+t,f 
645% NEXT 

6468 FOR f=û TO 1564:NEXT:GÛTO 6256 
6476 * Song For Guy (ELTON JOHN) 
GARD ‘ ========2=2==2s2s===222= 


Lo 


Los 


6494 DATA 319,34,239,20,379, 6e do è 


.29,279,20,379,10,279,10,478, 24,7 


6366 DATA 279,38,253,16,426,40,2 34 D, 2,283.2, 26,19, à 
253,18,379,10,293, 10,350, 20,253, 29,370,16,253, 16,426, 20 
12333 29 


8519 DATA 426,49, 268, 40,0, 2, 268,2, 426, 19,268, 10,379,10, 
268, 19,358, 20, 248, 20, 379, 10, 268, 10.426, 20, 268, 26,0, 2, 2b 
8,2 


6526 DATA 426,36,284,239,470, 20,204, 26,506, 16,264. 18,478 : 


20, 284,56 


15,119 


19,119 JR 


nNTé 


6536 DATA 284,10,4,16,9,2,9,2,284,16,0, 19,9,2,9,2,284, 1 :FD< 


6,6,16,6,2,6,2,204,26,6, 
319,24,6,20 

6546 RESTORE 6496 

6559 FOR +=1 TO 37 

é5èë READ aa,bb,cc,dd 
6576 SOUND 1,aa,bb#2.5,7 


5,4,2,6,2,284,10,6,16,0,2,6,2, 


6588 IF +228 THEN SOUND Z,cc,dd#2.5,6 ELSE SOUND 2,cc,d * 


dx2,5,9 

8596 IF INÉEY(56)=0 THEN 5960 
bbdÿ NEXT 

éb19 GOTO 6546 


/ EN 

/AVANT- FRENIERE 
TOUTES CŒES 

NOUVEAUTES 


SAMOURAI TRILOGY 


GREMLIN GRAPHICS 


Simulation 


Je suppose que vous avez devinez 

la destination finale que nous offre 

ce logiciel : il s’agit bien entendu 

du Japon, à l'époque médiévale. 

Vous entrez dans l'école la plus 

_| réputée, mais également la plus 
| difficile, afin de devenir le plus 

grand des Samouraïs. 

| Trois épreuves sont absolument 

. nécessaires pour prouver que vous 
méritez ce titre : il s'agit tout 
d'abord de karaté, puis de kendo, 
pour terminer par l'inévitable 
épreuve ultime ! Avant d'entrer 
dans la phase réelle du combat, 
une grande part de ce logiciel est 
réservée à des phases 
d'entraînements permettant 
d'acquérir une bonne maîtrise des 
techniques de combat dans chaque 
catégorie. C'est d'ailleurs ce qui 
constitue un atout majeur de 
Samouraï Trilogy. Pour vos 
combats, vous avez à votre 
disposition toute une liste 
d'adversaires et, pour chacun, vous 
avez un court résumé de leurs 
qualités, ce qui doit vous 
permettre de déterminer leurs 
points faibles et de fixer vos 
propres paramètres de stratégie, 
d'attaque et de défense... 
D'un graphisme correct et 
agréable, ce jeu offre toute une 
panoplie de coups différents, si 
vous ne pouvez avoir qu'une 
version cassette, commencez par 
appliquer le Zen, car chaque 
combat est très long à charger. 


BARBARIAN 
PALACE SOFTWARE 
Arcade 


Si vous aimez vous défouler à 
l'écran en livrant des combats 
sans merci à toute une suite 
d'adversaires plus coriaces les uns 


que les autres, ce logiciel a déjà 
toutes les chances de vous 
séduire. Mais si, en plus, vous 
n'êtes pas insensible à un décor 
magnifique dû à un graphisme 
superbe, alors là vous n'avez plus 
aucune excuse pour ne pas 
posséder Barbarian de toute nt 
urgence. 


Faisons un rapide résumé re faits 


pour situer l’action : un horrible 

sorcier, Drax de son nom, menace 
de jeter un sort sur les habitants 
de Jewelled City si leur princesse 
nommée Mariana ne lui est pas 


_ livrée. Il n'existe qu'une seule 


solution pour éviter cet horrible 
drame : vous. En livrant et 
gagnant chaque combat avec un 
garde de l'odieux Drax, vous 
parviendrez jusqu'à l'assaut final et 


| pourrez ainsi délivrer la belle 


Mariana. 
Avec Barbarian, vous avez à votre 
disposition quatre séries différentes 


de combats. Comme vous le savez 


déjà, le graphisme est vraiment 
superbe ; quant à l'animation, elle 
vous permet d'avoir accès à toute 


une série de coups nets précis et 


sans bavure (à part le sang qui PR S 
gicle lorsque vous tranchez net la r 
tête de votre adversaire...). Pour 
terminer, nous pouvons dire que la à 
musique achève la mise en | RS 
condition. À vous procurer 

absolument ! 


ADAAV AAMNVEC 


IMAGINE 
Arcade | 


Vous aimez l'action ? Vous allez 
en avoir. et jusqu'à plus soif, 
encore |! Je vous préviens : vous 
avez intérêt à ne pas avoir deux 
doigts sur une même touche, à | L 
être particulièrement vif et rapide ! | 
En effet, vous faites partie du : | 
SOC (Spécial Opérations u 
Commandos), organisation 
composée exclusivement de 
“’Rambos'” en tout genre. Pour 
commencer votre périple, vous êtes 
au volant d'une jeep équipée de 
missiles sol-sol et de missiles sol- 
air. Votre première mission 
consiste à atteindre la base 
ennemie où se trouvent les 
hélicoptères afin d'en ‘emprunter 
un pour finalement atteindre le 
0.G. de l'ennemi où vous devez 
trouver les plans Top Secrets qui 
feront changer la face du monde... 
Avec Army Moves, vous devez 
vous préparer à affronter sept 
étapes épuisantes. Si vous 
parvenez à accomplir les quatre 
premières, vous serez récompensé 
en obtenant un code qui vous 
permettra de démarrer directement 
à la cinquième étape ; 
heureusement pour vous, car ce 
logiciel est d'une telle rapidité que 
vos dix doigts plus une énorme 
concentration ne sont pas de 
trop ! Par ailleurs, vous pouvez 
goûter au plaisir que procure un 
bon graphisme lié à un scrolling 
‘en douceur” et, pour compléter le 
tout, une musique qui vous incite 
à persévérer. 


4#19-48 
486-40-446H 


DES CHIFFRES 
ET DES LETTRES 


PAS MIEUX ! 


R 


martecCh 


Cas 


RE 


Un service vente par correspondance à votre disposition. 


(Consultez la liste des produits sur Minitel 36.15 — MHZ). 


POUR S'INFORMER 


HBRETACNE m3 


CPC 464 - 664 - 6128 - PCW 


C_] LE LANGAGE MACHINE 

DE L'AMSTRAD CPC 
Plus loin que le BASIC. Des bases de la programma- 
ton en assembleur à l'utilisation des routines systè- 
me, nombreux exemples. Contient un progamme 
assembleur, moniteur et désassembieur. 
Réf. 228 - Prix : 120 F 


C1 MONTAGES, EXTENSIONS 

ET PERIPHERIQUES AMSTRAD CPC 
Tout ce que peut réaliser un amateur d'électronique 
avec un CPC. Interlaces, programmateur d'EPROM... 
Un très beau ivre de 450 pages. 
Réf. 235 — Prix : 190 F 


C1 LE UVRE DU LECTEUR DE 
DISQUETTE AMSTRAD CPC 

La programmation et la gestion des données avec le 
6128, le DD-1 ou le 664 | Utile au débutant comme au 

pq meur en langage machine. Contient un Hsting 
du DOS commenté, un uélitaire qui ajoute les fichiers 
RELATIFS à l'AMDOS avec de nouvelles comman- 
des BASIC, un MONITEUR disque et beaucoup d'au- 
tes programmes et astuces. 
Réf. 232 - Prix : 149 F 


C2 LA BIBLE DU CPC 6646128 

Tout connaître sur les CPC 6128 et 664. Analyse du 
système d'exploitation, du processeur, le GATE AR- 
RAY, le conteur vidéo, le 8255, le chip sonore, les in- 
terfaces. Réf. 250 — Prix : 100 F 


CT MIEUX PROGRAMMER EN ASSEMBLEUR 
Thomas Lachand-Robert 

Méthodes de programmation en assembleur Z80, ac- 

compagnées de nombreux exemples de programmes 

d'application fonctionnant sur les Amstrad CPC 464, 

664 et 6128. Aéf. 0193 — Prix : 148 F 


C1 TECHNIQUES DE PROGRAMMATION 

DES JEUX EN ASSEMBLEUR 

Georges Fagot Barraky 
Cet ouvrage contient des programmes de jeux écrits 
pour les ordinateurs Amstrad CPC 464, 664 et 6128. 
Chaque programme est accompagné d'une analyse pé- 
dagogique de la structure des phases essentielles et 
de tableaux résumant la foncéon et les valeurs des 
principales variables. Réf. 208 — Prix : 98 F 


C3 GRAPHISME EN ASSEMBLEUR 

SUR AMSTRAD CPC 

F. Pierot 
Programmer des applications graphiques en assem- 
bleur sur Amstrad (464, 664, 6128). De nombreuses 
rouênes. Réf. 340 - Prix : 145 F 


C7 AMSTRAD EN MUSIQUE - D. LEMAHIEU 
Pour les amateurs déjà initiés au langage BASKC, 
traduction d'œuvres musicales sur Amstrad. Partant 
de la génération de sons, en passant par le synhét- 
seur musical programmable. Réf. 240 — Prix : 165 F. 


C1 PRATIQUE DES IMPRIMANTES 

Michel ARCHAMBAULT 
Apprendra aux amateurs comme aux professionnels 
à résoudre les mile et un problème qu'ils ne manque- 
ront pas de renconter lors de la mise en service de 
leur imprimante - PRIX : 95 F 


C3 RSX ET ROUTINES 

ASSEMBLEUR SUR AMSTRAD 

D. ROY et J.J. WEYER 
De très nombreux programmes de graphismes et de 
mathématiques permettront aux possesseurs d'Ams- 
trad d'améliorer leurs connaissances en assembleur 
Z80. Prix : 200 F 


C2 MEUX PROGRAMMER SUR AMSTRAD 
Michel ARCHAMBAULT 

Complément pratique du manuel d'origine. L'art de con- 

cevorr et de créer un programme d'une manière effica- 

ce. Multiples astuces. Explique darement certains 

points obscurs du manuel d'origine. 

Prix : 85 F 


C7 PROGRAMMES UTILITAIRES 
POUR AMSTRAD 
Mchel ARCHAMBAULT 
Nombreuses roulnes : utilitaires de programmation, 


- Uflitaires graphiques, la gestion de fichiers, utilitaires 


imprimantes. 
Prix : 85 F. 


C7 APPRENEZ 
L'ELECTRONIQUE SUR AMSTRAD 
P. BEAUFILS & B. DESPERRIER 
Programmes permettant de visualiser les phénomènes 
complexes de l'électronique. 
Pdx : 96 F 


CT COMMUNQUEZ AVEC AMSTRAD 
D. BONOMO 8 E. DUTERTRE 
Pour tous les passionnés d'ondes courtes, codage, dé- 
codage, réception/émission, interfaces. 
Pdix : 90 F 


C2 LA BIBLE DU PROGRAMMEUR 

DE L'AMSTRAD CPC 
Ce livre est l'ouvrage de rélérence pour tous ceux qui 
veulent programmer en pro. Organisation de la mémoi- 
te, le contrôleur vidéo, les interfaces, l'interprétsur de 
toute la ROM désassemblée et commentée, etc. 
Réf. 226 - PRIX : 249 F 


C2 102 PROGRAMMES POUR AMSTRAD CPC 

J. DECONCHAT 
Idéal pour débutants, pour guider le lecteur dans l'ex- 
ploration du BASIC AMSTRAD. Les programmes à 
recopier sont dassés par niveaux, chacun d'eux fai- 
sant appel à de nouvelles connaissances. Réf. 222 
PRIX: 120F 


C2 AMSTRAD A L'ECOLE 

D. MELSEN et G. AMPUDIA 
Desinés aux enseignants, parents et élèves : le 
calcul, le français et l'éveil. Un cahier de vacances 
permet aux enfants de concevoir eux-mêmes de pe- 
tits programmes. Réf. 343 
PAIX :120F 


C2] BASIC PLUS DE 80 ROUTINES 
SUR AMSTRAD 
M MARTIN 
L'auteur propose 80 rouênes pour simuler des Fonc- 
tions qui n'existent pas directement sur la machine. Le 
lecteur doit déjà connaître le BASIC de l'AMSTRAD 
CPC pour utiliser au mieux cet ouvrage. Réf. 286 
PAIX : 100 F 


C2 PERPHERIQUES ET ACHIERS 

SUR AMSTRAD CPC 

D... DAVID 
Les ordres correspondants à chacun des périphériques 
sont présentés : lecteurs de cassettes et de disquet- 
ts, imprimantes, crayon optique, manette de jeux et 
RS232. La programmaion des disques est étudiée en 
accès séquentiel à l'aide d'ordre BASIC et en accès di- 
rect à l'aide de ruines originales. Réf. 316 
PRIX : 120 F 


C1] BASIC-AMSTRAD 1 (méthodes pratiques) 

J. BOISGONTIER 
Jeu d'instructions très complet : gesäon des interup- 
Sons en BASIC, sorte stéréo au haut parleur intégré, 
etc. Réf. 230 
PRIX : 105 F 


C1 BASIC AMSTRAD 2 

(programmes et fichiers) 

J. BOISGONTIER 
Programmes graphiques udlisant la haute résolution 
ainsi que la gamme couleurs. Programmes de gestion 
de fichiers pour Maïing, étiquettes, création d'histo- 
grammes. Jeux à exécution très rapide. Programmes 
éducatifs. Réf. 249 
PRIX : 95 F 


[2] TURBO PASCAL SUR AMSTRAD 

B BRANDESS et F. BLANC - CPC et PCW 
Toutes les commandes sont expliquées et ilustrées 
pour arriver à un haut niveaut de connaissances : fai- 
re de l'assembleur à l'intérieur des roulines Pascal, 
connaître le fonctionnement de Heap et de Pie, malti- 
ser les pointeurs, etc. Ref. 310 
PAIX : 135 F 


C7 SUPER GENERATEUR DE CARACTERES 
SUR AMSTRAD 
J.-P. SEHAN 
Propose un programme original de création de caracté- 
res graphiques qui peuvent être uilisés tel quel pour i- 
luster des programmes de jeux ou modifiés au gré de 
Fimagination du lecteur. Réf. 300 
PAIX : 140 F 


C2 TRUCS ET ASTUCES T1 

POUR AMSTRAD CPC 
Graphismes, lentes, langage machine... Des supers 
programmes sont indus (gestion de fichiers, éditeur de 
textes ot de son). Réf. 221 
PRIX : 149 F 


C1 TRUCS ET ASTUCES T2 POUR CPC 

Vous y trouverez un générateur de menus, de mas- 
ques, des aides à la programmation comme un DUMP, 
etc. Réf. 251 

PAIX : 129 F 

[1 LES ROUTINES DE L'AMSTRAD CPC 

Pour bien connalte et utiliser les routnes utiles du 
6128, 664 et 464. À la portée de tous. Nombreux pro- 
grammes utilitaires. Réf. 239 

PAIX : 140 F 

C3 DEBUTER AVEC LE CPC 6128 

Tout est darement expliqué, aussi bien pour le maté- 


riel que pour le logiciel. Réf. 248 
PRIX : 90 F 


Total commande : 
Port 10 % : 
Total de mon règlement : 


Date : 


Signature : 


C7 LA BIBLE DU GRAPHISME 

Tout sur le GSX. Programmation d'un logiciel PAINT 
graphismes de gestion, graphismes vectorisés, fonc- 
tonnement et réalisaiion d'un Kght pen. Graphisme en 
langage machine, tout sur le graphisme CPC et PCW. 
Réf. 227 - PRIX : 190 F 


C1 LE GRAND LIVRE DU BASIC CPC 6128 

Ce ivre vous permet d'exploiter à fond les capacités 
du BASIC LOCOMOTIVE. Attaquer les différents do- 
maines de la programmañon : ris, fenêtre, protection, 
sons et musique, mémoire de masse avec l'AMDOS 
et le RAMDISK. Nombreux Kstings d'applicaïions de 
haut niveau fournis et commentés. Réf. 268 

PRIX : 140 F 


C7] PROGRAMMER 

VOTRE TRAITEMENT DE TEXTES 

J.-C. DESPOINE 
Traitement de textes présenté pour l'exxentiel en as- 
sembleur. Pour 464, 664 et 6128 mis au point avec 
une DPM2000. K peut facilement être adapté à d'au- 
tes imprimantes. Réf. 221 - PRIX : 128 F 


C_] PROGRAMMES EN LANGAGE MACHINE 

S. WEBB 
La façon de programmer l'équivalent des instructions 
BASIC : PRINT, GOTO, GOSUB, FORMNEXT, etc. 
est tout d'abord étudiée, puis ces notions sont appli- 
quéss à la réalisation d'un jeu d'action. De nombreux 
sous-programmes pourront être réutilisés par le lec- 
teur dans ses propres programmes. Réf. 195 
PRIX :82F 


C2 LOCOSCRIPT 

B. LE DU 
Ce kvre est une introduction et par sa démarche péda- 
gogique, À vous permettra une découverte aisée et ra- 
pide de ce traitement de textes. C'est aussi un ouvra- 
ge de référence auquel vous pourrez vous reporter et 
un guide pratique. Réf. 202 - PRIX : 110 F 


C1 ASTROCALC 

Gérard BLANC et P. DESTREBECQ 
Si vous souhaitez disposer d'un outil de calculs permet- 
tant l'érection d'un hème nata ou d'une révolution 
solaire, la comparaison de thèmes, la recherche auto- 
matique des transits et progressions tout en compre- 
nant les mécanismes mis en œuvre. Alors, cet ouvra- 
ge vous comblera. Réf. 162 
PRIX : 148 F 


PREMIERS PROGRAMMES AMSTRAD 
Rocnay ZAKS 

Quels que soient votre âge et vote formabon, ecri- 
vez votre premier programme BASIC en moin d'une 
heure. D'une présentaon claire, comportant de nom- 
breux diagrammes et ilustrations en couleur. Réf. 105 
PRIX : 108 F 


CI UNIVERS DU PCW 

Patrick LEON 
Environnement matériel, commande de CP/M 3.0, le 
BDOS, le BIOS, fichiers binaïres, éditeur de disquet- 
tes, désassembleur Z80, graphismes, caractère à la 
loupe. PRIX : 119 F 


C1 Nouveau ! COMPILATION CPC n° 1, 2, 3, 4 
PRIX :70F 


l'ordre de : BRETAGNE EDIT' PRESSE. Retournez le(s) bulletin(s) ou une photocopie à : 
: EDIT PRESSE - La Haie de Pan 35170 BRUZ — tél. 99.57.90.37 


Stephane CLOIREC 


Nous avons vu le mois dernier les fonc- 
tions mathématiques de PASCAL TURBO, 
mais il existe de nombreuses autres 
fonctions prédéfinies : 

— Les fonctions dites ‘’scalaires’” 

— Les fonctions de transfert 


— Les fonctions de manipulation de chaînes 
— Les fonctions de manipulation de fichiers 


FONCTIONS 
PREDEFINIES 


S 
NNKKKKKKKKNNENTTEN 


— Les fonctions de contrôle de la mémoire dynamique 


— Les fonctions ‘’diverses’’ 


Dans l’état actuel de nos connaissances, nous nous limiterons à l’étude des fonctions 
scalaires, de transfert et à certaines des fonctions diverses. 


LES FONCTIONS SCALAIRES 


Comme leur nom l'indique, les fonctions scalaires s’utilisent 
sur des variables de type scalaire. En bref (nous reviendrons 
plus tard en détail là-dessus), les types scalaires sont de deux 
sortes : prédéfinis par PASCAL TURBO ou définis par 
l'utilisateur. 


Les types scalaires définis par TURBO sont les types que vous 
utilisez pour l'instant : 

— les entiers (INTEGER) ; 

— les réels (REAL) ; 

— les octets (BYTE) ; 

— les booléens (BOOLEAN) ; 

— les caractères (CHAR). 
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Il vous est possible de vous définir votre propre type scalaire 
en donnant à l'ordinateur, dans un ordre précis, toutes les 
valeurs possibles que pourra prendre une variable de votre 
type. 

Prenons un exemple : vous avez besoin, dans un de vos pro- 
grammes, de connaître la saison à laquelle telle décision doit 
être appliquée. Vous choisissez donc de définir un nouveau 
type scalaire que vous appelez fort logiquement SAISON et 
qui contient quatre éléments : le printemps, l'été, l'automne 
et l'hiver. Il vous suffit de taper : 


TYPE SAISON = (PRINTEMPS,ETE,AUTOMNE,HIVER) ; 
A partir de ce moment, toute variable du type SAISON ne peut 


prendre qu'une des quatre valeurs PRINTEMPS, ETE, 
AUTOMNE OÙ HIVER. 


Tableau 1 


Résumé des fonctions scalaires 


— Fonction | ODD 


— Utilité Teste la parité d'un nombre 
— Syntaxe Parité := Odd (Nombre) ; 

- CE. Nombre est bien sr entier 
— Css. Parité est Booléenne : 


— False si Nombre est pair 
— True si Nombre est impair 


— Fonction 


— Utilité Donne la valeur précédente d'un scalaire 
dans l'ordre donné par la déclaration du 


type scalaire considéré 


Valeur_Preced := Pred (Valeur) ; 


Valeur est de n'importe quel type scalaire 


Valeur_Preced est du même type que 
Valeur 


— Fonction | SUCC 


— Utilité Donne la valeur suivante d'un scalaire | 
dans. l'ordre donné par la déclaration du 


type 


Valeur_suiv := Succ (Valeur) ; 


- CE. Valeur est de n'importe quel type scalaire 


Valeur_suiv est du même type que valeur 


Remarque : 

Il vous est possible d'utiliser les opérateurs relationnels clas- 
siques avec le type scalaire que vous venez de créer. Si nous 
reprenons notre exemple, on a donc : 


PRINTEMPS <ETE < AUTOMNE < HIVER 


d'où la nécessité de prévoir à l'avance l’ordre dans la défini- 
tion de votre type scalaire. 


Ces fonctions sont au nombre de trois : ODD, PRED, SUCC. 
(Cf. tableau 1). 


e ODD n'agit que sur les nombres, car cette fonction sert à 
vérifier si le nombre est ou non impair. Elle retourne les valeurs 
booléennes TRUE ou FALSE dans l’un ou l'autre des cas. 
— PRED et SUCC agissent sur une variable de n'importe quel 
type scalaire. 

PRED (Variable) donne le prédécesseur de Variable si Varia- 
ble n'est pas la première valeur du type scalaire considéré. 
Le résultat sera du même type que Variable. 

Exemples : 

PRED (AUTOMNE) donnera ETE 

PRED (12) donnera 11 

PRED (‘D’) donnera ’C' 

PRED (PRINTEMPS) n'est pas défini. 


SUCC (Variable) donne de la même manière le successeur de 
Variable si Variable n'est pas la dernière valeur du type sca- 


laire considéré. Le résultat est toujours du même type que 
Variable. 

Exemples : 

SUCC (2) donnera 3 

SUCC (AUTOMNE) donnera HIVER 

SUCC (HIVER) n'est pas défini 


LES FONCTIONS DE TRANSFERT 


Celles-ci sont utilisées pour convertir des valeurs d'un type 
scalaire en un autre type scalaire (Cf. tableau 2). 

— CHR correspond à la fonction BASIC CHR$(). Elle donne 
le caractère dont la valeur ordinale lui est fournie (Cf. ORD). 


ÿ Tableau 2 
Résumé des fonctions de transfert 

— Fonction | CHR 

— Utilité Donne le caractère correspondant au 
nombre fourni (Valeur ordinale du 
caractère) 

— Syntaxe Caractère := Chr (Nombre) ; 

- C.E. Nombre est entier 

Css. Caractère est du type CHAR 


Le ee 
— Fonction | ORD 


— Utilité Donne la valeur ordinale (position d'une 


valeur dans son type scalaire. 


Attention : la position de la première valeur 
d'un type est zéro 


— Syntaxe Position := Ord (Valeur) ; 


- CE. Valeur est de n'importe quel type scalaire, 


sauf réel 


Position est entière 


— Fonction | TRUNC 


— Utilité Convertit un réel en entier en lui enlevant 
sa partie décimale 


Résultat := Trunc (Valeur) ; 


Valeur est réelle 


Résultat est entier 


ROUND 


— Fonction 


Arrondit un réel en entier en effectuant : 
— Si Valeur >= 0: 

Round (Valeur) = Trunc (Valeur +0.5) 

— Si Valeur <0: 

Round (Valeur) = Trunc (Valeur -0.5) 


— Utilité 


Résultat := Round (Valeur); 


Valeur est réelle 


Résultat est entier 
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Tableau 3 
Résurié des fonctions diverses 


— Fonction HI 


— Utilité Récupère l'octet fort d'une valeur 


— Syntaxe 


- CE. | Valeur est entière 


Résultat := Hi (Valeur) ; 


— CS. Résultat est entier 


— Utilité Récupère l'octet faible d'une valeur 


— Syntaxe Résultat := Lo (Valeur) ; 


- CE. Valeur est entière 


Résultat est entier 


— Fonction SWAP 


— Utilité Echange les octets fort et faible d'une 


valeur 


Résultat := Swap (Valeur) ; 


Valeur est entière 


Résultat est entier 


— Fonction | KEYPRESSED 


— Utilité Teste si une touche a été frappée 


— Syntaxe Test_de_touche := Keypressed ; 


Test_de_touche est booléen 


— Fonction SIZEOF 


— Utilité Donne la place mémoire occupée par une 


variable ou un type quelconque 


Taille_mem := SizeOf (Nom); 


Nom est le nom de la variable ou du type à 
tester 


Taille_mem est entière 


— ORD donne la valeur ordinale d'une variable dans l’ensem- 
ble défini par le type de la variable. 


Exemple : 

Si on reprend notre type SAISON, il définit un ensemble de 
quatre valeurs. Si on déclare la variable Saison__ préférée 
comme étant de type SAISON et si on pose 


Saison__ préférée := ETE; 


alors ORD (Saison__ préférée) donnera 1 car la valeur ordinale 
du premier élément est zéro. 
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Suite tableau 3 


— Fonction UPCASE 


— Utilité Donne la version majuscule (si elle 
existe) d'un caractère 

— Syntaxe Caractère_maij := Upcase (Caractère) ; 

-C.E. Caractère est de type CHAR 

-C.I. Caractère_maj est de type CHAR 


— Fonction RANDOM 


— Utilité donne accès au générateur de 
nombres aléatoires 

— Syntaxe Nombre _réel := Random ; 
Nombre_entier := Random (Valeur) ; 

—C.E. Valeur est entière 

— CS. Le résultat est réel ou entier suivant la 


syntaxe utilisée 


Pour les variables du type Caractère (CHAR), la valeur ordi- 
nale correspond au code ASCII du caractère. 

— TRUNC arrondit la valeur d'un nombre en lui enlevant sa 
partie décimale (convertit un réel en entier). 

— ROUND arrondit la valeur d’un nombre de la manière sui- 
vante : 

Si Nombre > = O0, ROUND (Nombre) = 

TRUNC (Nombre + 0.5) . 

Si Nombre < O , ROUND (Nombre) = 

TRUNC (Nombre - 0.5) 

(ROUND convertit aussi un réel en entier). 


LES FONCTIONS DIVERSES 


Dans cette partie, nous allons voir les fonctions de manipu- 
lation d'octets, les fonctions de hasard, ainsi que quelques 
autres ‘d'intérêt général’ ! (Cf. tableau 3). 

— PASCAL TURBO permet la manipulation des nombres 
hexadécimaux signalés à l’aide du préfixe ‘$”. Il vous est pos- 
sible de jongler avec les octets de poids fort et les octets de 
poids faible grâce à trois fonctions : 


HI, LO, SWAP 


Hl vous permet de récupérer l’octet de poids fort d’une expres- 
sion entière dans l’octet de poids faible du résultat. L'octet 
de poids fort du résultat contient alors zéro. L'expression et 
le résultat sont des valeurs entières. 


Exemple : 
HI ( 4362) donnera 11 
($110A) ($0011) 


LO prend l'octet de poids faible d'une expression qu'elle met 
dans l’octet de poids faible du résultat. L'octet de poids fort 
du résultat est zéro. L'expression et le résultat sont des valeurs 
entières. 


Exemple : 
LO ( 4362) donnera 10 
($110A) ($000A) 


SWAP permet d’ échanger les octets de poids faible et de poids 
fort d’une expression. L’ HRDERNAO et le résultat sont des 
valeurs entières. 


Exemple : 
SWAP ( 4362) donnera 2577 


($110A) ($OA11) 

— Les fonctions permettant l'accès au générateur aléatoire 
sont au nombre de deux : RANDOM et RANDOM (Nombre). 
RANDOM donnera un nombre aléatoire compris entre zéro et 
un. Le résultat sera bien évidemment réel. 

RANDOM (Nombre) retournera quant à lui un entier compris 
entre zéro et Nombre. Il faudra que Nombre soit lui aussi 
entier. 


— La fonction KEYPRESSED est utilisée lorsqu'on veut tes- 
ter si une touche a été tapée au clavier. Dans l'affirmative, 
elle retourne la valeur booléenne TRUE, sinon elle donne la 
valeur FALSE. 

Remarque : 

KEYPRESSED n'attend pas que vous frappiez une touche, elle 
teste ‘’au vol”. 


Cette fonction peut s'utiliser de manière ‘‘classique’" (on défi- 
nit une variable comme étant du type Booléen et on affecte 
la fonction à cette variable), mais comme toutes les fonctions 
booléennes, il n’est pas toujours nécessaire, notamment dans 
les tests ou les boucles, d'exprimer directement sa valeur. 


On peut donc écrire : 

IF KEYPRESSED THEN... 

ce qui suppose : 

IF KEYPRESSED = TRUE THEN... (si on a frappé une touche) 


— La fonction SIZEOF vous donne la place mémoire prise par 
une variable ou par un type donné. Le résultat sera entier. 


— La fonction UPCASE vous renvoie la version majuscule 
d'un caractère donné. Si le caractère envoyé n’a pas de majus- 
cule, il est alors retourné tel quel. 


Listing 1 — exemple d'utilisation des fonc- 


tions scalaires 


Frogram Essai des fonctions scalaires 


Const { Je definis 


(Input ,Qutput): 


les constantes utilisees dans à 


Nbre.1 25 { le programme. 


Nbre 2 
Car _1 


Caractere, 


{ De meme, les variables. 


Nouveau caractere 
Nombre 
Test 


Begin 


Cilrscr: 

Writeln (Output, 'Odd (12) 
Writeln (Output, 'Odd (7) 
Writeln (‘Vous remarquez 
Writeln (Output); 

Write (Output, 'Entrez un 
Readiln (Input ,Nombre); 
Test := Odd (Nombre): 
Writeln (Output, ‘Odd (°,N 
Writeln (Qutput): 


Writeln (Output, ‘Fred 
Writeln (Output, 'Fred 


Writeln (Output): 
Writeln (Output, 'GSucc (12 
driteln (Output,'Succ (D) 
Caractere := ‘d': 
Nouveau_caractere := Succ 
Writeln (Qutput,'Succ (‘, 


Writeln (Output ,'Les majuscules et les minuscules sont ici 


C'est v 
d'utili 
finit p 


Char ; 
Integer: 
Boolean: 


‘.Qüdd (Nbre 1)): 
= .Odd (Nbre _2));: 
qu''en fait, Jd4 teste la Non-Farite !'): 


nombre vous-meme : )s 


ombre,') = ‘,Test): 


‘,Fred (Nbre _1));: 
Fred (Car _1)): 


» = ‘,Succ (Nbre _1)): 
= ‘,Succ (Car _1)): 


(Caractere): 
Caractere,') = ‘,Nouveau_ caractere): 


olontairement que je ne donne pas ici d s“emple 
sation des fonctions scalaires avec un type de- 
ar 1 tilisateur comme SAISON car ces types ne- 


cessitent des manipulations, pour etre utilises 


{ Entree/ 


Sortie, que nous verrons ulterieuremenrt. 


differenciees"'): 
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Listing 2— exemple d'utilisation des fonc- 
tions de transfert 


Frogram Essai des fonctions de transfert (Input Output): 
Const 
+ Changez les valeurs des constantes : 
t et regardez ce que ca donne ! 3 


Nombre, 

Fosition, 

Resultat Integer: 

Nombre reel Real ; 

Caractere Char: 
Begin 


Clrscr: 

Write (Output, 'Entrez un nombre entre 33 et 126 :°); 

Readln (Input ,Nombre); 

Caractere := Chr (Nombre): 

Writeln (Output, 'Caractere correspondant :°,Caractere): 

Writeln (Output, 'Reciproquement, Ord (‘,Caractere,') = ‘,0rd (Caractere)):; 
Writeln (Output, 'On a aussi Ord (‘,Nbre_1,') = ‘,Ord (Nbre _1)); 

Writeln (Output); 


Writeln (Output, 'Maintenant, on arrondit !°); 

Writeln (Output,'Trunce (‘,Nbre_ ‘) = ‘,Trunc (Nbre _2)) 
Writeln (Output, 'Trunc (‘,Nbre 3, ") ",Trunc (Nbre _3)) 
Write (Output ,'Entrez votre nombre : ‘); 

Readin (Input ,Nombre reel); 

Nombre := Trunc (Nombre reel); 

Writeln (Output,'Trunc (’,Nombre reei,') = ‘,Nombre); 
Writeln (Outout); 

Writeln (Output ,'Round (’,Nbre 2,') = ‘,Round (Nbre 2)) 
Writeln (Output, Round (°,Nbre_ ‘) = ‘,Round (Nbre _%)) 
Nombre reel := -4,8; 

Nombre := Round (Nombre reel); 

Writeln (Output, Round (°,Nombre reel, = ‘,Nombre);: 


End. 


Listing 3 — exemple d'utilisation des fonc- 
tions diverses 


Frogram Essai des fonctions diverses (Input ,Qutput); 
Const 
Nbre _1 +110A;: 


Nombre Integer ; 
Caractere Char ; 
EHegin 


Clrscr: 

Writeln (Output, ' Manipulations d''octets :°): 

Writeln (Output, 'Hi (‘,Nbre_1,') = ‘,Hi (Nbre _1)); 
Writeln (Output ,'Lo (‘,Nbre 1,') = ‘,Lo (Nbre _1)): 
Writeln (Output ,'Swap (‘,Nbre:1,') = ‘,Swap (Nbre _1)): 
Writeln (Output): 


Nombre := SizeOf (Caractere);: 
Writeln (Output,'Tailie de la variable caractere : ‘,Nombre,' octet"‘): 
Writeln (Output); 


Write (Qutput,'Entrez votre caractere (en minuscule) 
Readln (Input ,Caractere); 

Writeln (Output ,'Majuscule --* ‘,UpCase (Caractere)) 
Writeln (Output): 


Writeln (Output, ' Appuyez sur une touche...'); 
KRepeat 
Until FHeypressed: 
Writeln (Output,'Vous avez appuye sur une touche !°) 


End. 


ANNONCES 


La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti- 
tes annonces farfelues sont systématique- 
ment rejetées... De même, comme il est peu 
probable qu'il existe des ‘généreux dona- 
teurs'’ de matériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis ‘’d’origine’”, ainsi que 
toute annonce incitant au piratage. | 
En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d’un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 

Cherche club micro-informatique de préférence 
Amstrad sur le 92 ou Paris. M. ALTEMEYER - 25 
bis, av. J.-B. Clément - 92140 CLamart. 


Cherche CPC n° 1 et 3, vends hebdogiciel n° 3 à 
66 (- quelques uns). Faire offres à CHEVREUX Co 
84 rue Royale - 49250 Corne. 


Refaites les jaquettes de vos cassettes audio en 
super impression : CPC 464 ou 6128 + DMP2000 
+ mon logiciel original. Envoi avec notice 
‘‘disk3'" : 90 F. K7 : 60 F. Document contre 4 tim- 
bres. D. LE POLLOTEC :- 2, rue J. Prévert - 44600 
St-Nazaire. 


Recherche carte 8 2/S-pour Amstrad CPC 6128. 
Faire offres au 41.67.55.64 ou écrire à M. PER- 
THUISOT - 6 rue d'Alsace - 49400 Saumur. 


Vends CPC 464 mono + drive DD1 + imprimante 
DMP2000 + joystick + nombreux livres et logi- 
ciels : 3800 F. Arnaud BRINGE - 93 Noisy Le Gd.- 
tél. 1.43.03.63.02. 


6128 recherche correspondant pour échange logi- 
ciels. JOSE 60.02.04.78 ou laisser message sur 
répondeur minitel même numéro. 


Aux branchés de la belle bête, vends discology, fer 
et flamme flash, KYA, ZOX2099, Bob Winner, Tas- 
copy, cours CPM + sapiens, disk originaux, le 
tout : 600 F. Tél. 60.78.51.07. 


Vends 10 K7 : 500 F (originaux) dont sorcery, com- 
mando, expl. fist, fighter pilot, warrior, million 2, 
knigh + loke... Tél. 53.24.78.09. 


Vends MSX Sony Hit bit 64 Ko + jeux + graphic- 
masters, livres, joystick à infra-rouge. Etat neuf : 
2500 F. Urgent. Tél. 43.76.57.07 avant 18h00, 
demander Frédéric. 


Vends CPC 464 mono + jeux originaux + autres 
+ joystick + utilitaires doc. Bruno - tél. 
50.59.26.53. 


Vends ZX81 + 64 Ko + imprimante ZX Printer + 
alim et cordons + TV portable écran 28 cm + 
magnéto à K7 + doc. Sinclair + livres et K7 pour 
programmes : 1500 F sur place ou + port. Dépar- 
tement 77 - tél. 64.00.34.62 avant 20h00. 


Vends moniteur 9'° N/B Sinclair, état neuf et data 
recorder sanyo DR202A neuf 1200 F. Tél. 
39.52.71.14 après 20h00. 


Vends modem DTL 2000 + logiciel com. prix 
800 F. Tél. 59.93.06.10 après 19h00. 


Vends CPC 464 couleur + 50 jeux + joystick : 
2800 F. Tél. 93.42.34.94, demander David de pré- 
férence dans les Alpes Maritimes. 


Achète CPC 6128 avec logiciels pour 3000 F. Con- 
tacter le 29.80.68.56. Cherche Discology : 100 F. 


Echange disk Bactron scrabble superbio GP3D con- 
tre ace of ace, GP500, m'enfin. DELAMAR - 19, 
rue de Belair - 45000 Orléans (région ou uniq.). 


Vends MO5 + 7 logiciels + 1 cass. pers. + 1 gray 
opt + 1 magnéto + 1 ext. music et jeux + joys- 
tick + 2 livres : 2500 F. Tél. 90.74.18.16 APT 84. 


Vends CPC 6128 + joys. + turbo Pascal + dBASE 
2 + ass. + multiplan + nbx jeux, livres et revues : 
3600 F. Tél. 41.88.92.78. 


Progs. maths originaux et inédits : matrice, poly- 
nome, équation, courbe, pour CPC aucun concur- 
rent ! Aussi en pascal. Tél. 1.43.388.62.71. 


Vends encyclopedies BASIC Plus en 6 vol. : 750 F. 
ABC informat.£ 1.900 F. Dictionnaire alpha 18 
vol : 1500 F. * 39.93.45.19 après 18h00. 


Cherche notice tans et prog. enseignement tech- 
nique LEP. FRIGUX - 1, rue P. Brottier - 92190 
Meudon. 


Joueurs au loto ‘*duiser votre mise de 80 % grâce 
à mon programr:: Jean noël BARNE - 22, rue Nun- 
gesser et Coli 52100 Calais. 


Vends Amstrac ::f4 avec moniteur couleur parfait 
état, 7 disq. v'.'4es port compris : 3200 F. Tél. 
31.98.48.93. 


Vends CPC 464 mono + logiciels originaux + 
livres programr: :tion : 1400 F. Vends adaptateur 
couleur péritel 300 F. Tél. 20.95.13.15 Lille. 


Vends CPC 464 :ouleur, état neuf, peu servi + 
jeux + joystick - livres de programmes + revues : 
3000 F le tout Tél. 64.28.81.74. 


Votre Amstrad ::t en panne, vous avez besoin 
d'une interface 1 vendue. E. PROLOGIE - 9, rue 
du Pas - 81500 : avaur - tél. 63.41.49.52. 


Vends CPC 61?°  ouleur (fév. 87) + lecteur cas. 
+ joystick + 1. x + livres + revues (6800 F). 
Vends 5500 ! +: cadeau. THAO My - tél. 
48.22.94.87 anres 18h00. 


Vends CPC 464 inonochrome + programmes + 
doc. très peu s:v1: 1600 F. Tél. 43.83.14.28 
Jean-Pierre aprés 18h30. 


Vends ou échanse jeux sur Amstrad CPC 464, K7 
150 jeux envirc dont ikari, warrior, 194 letc... 
Tél. 48.27.60. t Fpinay sur Seine. 


Vends Canon X°7 + 4 Ko : 800 F ; Int. Péritel : 
750 F.Imp. X71 700 F.K7 Calc, bang, graph : 
300 F. 2K7je:* 200 F. Tél. 49.23.32.08. 


Vends Amstrad PC 464 couleur + nombreux jeux 
{environ 50) °700 F. M. SALMERON : tél. 
46.20.34.76 anrès 19h00. 


Recherche sur annuel DMP2000 photocopieur 
pages IA 11-1 © 8 + chapitre 7 et appendice 2 
complets. Tél. :4 67.38.10 HB. 


LES PETITES ANNONCES ET LES MESSAGES 
Attention, vos PA seront mises sur le serveur avant la parution du journal 


SORACOM, La Haïie de Pan — 35170 BRUZ 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 
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Vends CPC 464 mono + imp. DMP2000 + 
manette jeux + 41 cassettes + livres : 3000 F. 
Tél. 43.85.65.06 après 20h30. 


Cherche contact Amstrad CPC 6128 sur Bretagne 
ou autre. Tél. 96.35.48.74 Vincent après 18h00. 


Alsace vends Amstrad CPC 464 couleurs : 2200 F. 
Tél. 88.74.38.52 après 19h00. 


Vends 50 prog. originaux (disk et K7) + 10 livres 
pour CPC, le tout bradé 1000 F. Poss. vente sépa 
rée ou en lots. Tél. 43.48.07.63 après 19h00 Eric. 


Débutant PCW cherche contact pour échange 
divers. Tél. 72.33.98.75 - 114, rue du 1° Mars - 
69100 Villeurbanne - LANDRIEU Olivier. 


Vends PCW 8512 + RS232 + émulation minitel 
+ stylo optique + nombreux logiciels : 6500 F. M. 
BOUCHET - Tél. 90.46.46.38. 


J.H. cherche JF possédant synthé sur Lyon, quar- 
tier place 9rd. Clément - 114, rue du 1° Mars - 
69100 Villeurbanne - LANDRIEU Olivier. 


Vends orgue Yamaha PSS 110 : 400 F + magnéto 
7W:300F.114, rue du 12 Mars - 69100 Villeur- 
banne - Olivier LANDRIEU. 


Cause lecteur 5’ 1/4, vends disquette 3°’ : 90 F 
pièce à débattre. Cherche contacts sur 5°’ 1/4. Lau- 
rent au 1.46.61.07.80 (entre 17h00 et 20h00). 


Echange feuillets CEF soie du n° 3 (1972) au 
n° 617 (1985) contre CPC 6128 couleur + impri- 
mante + joystick + disc. Tél. 63.40.42.58. 


Vends Thomson TO7 + magnétophone + quatre 
jeux : 2200 F. Etat neuf, jamais servi. Tél. 
6/.97.08.44 HR - M. SELZER - Les Marbrières - 34 
St-Pons. 


Cherche contacts sur Amstrad 6128 dans la région 
de Prouin. Tél. 64.00.51.00. Demander Georges. 


Vends CPC 464 mono : 1750 F. M. DELONG. Tél. 
prof. 40.35.92.63 - 40.57.12.61 


Achète pour CPC 464 logs sur Astronomie + cour- 
ses hippiques + CPC n° 1 à 5 - PARDOUE Marcel 
C - 41, rue Lalau - 59520 Marquette. 


Cherche CPC 6128 couleur aux environs de 
3000 F. Tél. 78.46.24.00 après 18h00, urgent. 


Cherche contacts pour échange jeux ou util. 
(6128), surtout nouveautés. Tél. 80.71.50.63, 
demander Christophe. 


Vends ZX81 16 Ko logiciels clavier pro indescop, 
cause nouveau système. Ecrire C. MINAMONT - 
F11DBZ - 2, rue C. Crépin - 37530 Nazelles. 


Vends Atari VCS 2600 + 5 K7 (Pac-Man, Pole 
Position..} : 700 F. L. BUISSON - 7, bd Verdun - 
01300 BELLEY - tél. 79.82.24.95. 


Vends CPC 464 couleur + lecteur DDI1 et FD1, 
le tout 4000 F. M. OCHLHAFEN - tél. 
48.20.72.04 après 18h00. 


Vends 464 mono + 150 softs + doubleur + 2 
joysticks : 1800 F, DDY : 1500 F. Softs originaux 
K7 : 30 F. Alexis au 35.80.07.26. 


Cherche jeux d'arcade fabriquer avec graphic-city 
en échange, je digitalise l’image de votre choix, 
appeler le 29.06.94.43. 


Vends CPC 664 mono + imprimante DMP1 + 
extension 64 Ko + adaptateur couleur péritel : 
4000 F. Tél. 60.04.25.46. 


Vends Okimate 20 très bon état, sous garantie, 


emballage origine, cause double emploi : 1800 F. 
Tél. 47.06.54.69 après 18h30 Olivier. 
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Vends ordinateur de poche avec manuel d'utilisa 
ton + 1 livre : 450 F. Appeler après 6h00 au 
40.66.09.02 Laurent CASSAGNE. 


Vends Amstrad 6128 couleur + DMP 2000 + 
magnéto + logiciel + interface TV, le tout 
6500 F. Tél. 26.80.55.11 Eric à 16h00. 


Vends Vortex F1X (6128) disk 5’ 1/4 neuf 
1800 F. Vends multiface 2 : 250 F et Dart- 
scanner : 450 F. Tél. 26.80.55.11 Eric l'après-midi. 
Vends moniteur monochrome (5 mois) : 1200 F. 
Tél. 48.23.28.29 entre 17h00 et 20h00 tous les 
jours (Anthony). 


Cherche console Amstrad 6128 ou 664. Tél. 
75.72.06.49. 


Cherche heureux possesseur de Mirage-Imager 
pour échanges. Tél. 90.42.54.72. Les samedi et 
dimanche seulement. 

Vends 3000 F : DMP2000, 2e lecteur 3'’, 50 disk 


dont 20 origine {utili. + jeux), câbles, bouquins, 
papier. Tél. 43.76.75.94 après 18h30. 


Vends ‘’BASIC PLUS’ 6 tomes pour Apple, IBM, 
programmation, etc. Etat neuf. Tél. 51.37.50.39. 


SON VIDÉO 
2, 2000 


MICRO 
AQUITAINE 


ATARI 
amsrran  @RIC 
OLIVETTI 


gcommodore 


Compatibles IBM 


31, cours de l’Yser 

33800 BORDEAUX 

Tél.: 56.92.91.78 
Télex 572-421 


Vends 464 mono + lecteur DD1 achetés en XII 
1985, peu servi : 3000 F. VACHER J.-Pierre - 
33870 Vayres - tél. 57.74.85.22. 


Urgent, vends CPC 464 mono + 20 jeux + 1 joys- 
tick + revues : 2100 F (valeur 4000 F]). Tél. 
91.61.44.59 (le soir) région briochine. 


Vends CPC 664 mono + modem OTL 2000 + 2° 
lecteur de disk + RS232 + 22 disks pleins : 
4500 F. Tél. 47.98.60.35 HR, merci. 


Cherche RAM CE-202-M pour Sharp PC 1350 
(16 Ko ou 8 Ko). Tél. 64.32.84.38 (Week-end aux 
heures de repas). 


Vends vidéopac + 13 jeux + 2 joystick état excep- 
tionnel valeur + 2500 F, vendu 850 F à débattre. 
Tél. 50.36.46.30 stop affaire ! 


Vends cassettes AMSTRAD : (Nexus, Boxing 3D, 
Yie AR, Kung Fu) 50 F l’une ou 400 F les 10. Tél. 
38.58.20.36 demander Xavier. 


PE LICE 
ANNONCES 


Vends 6128 couleur : 3000 F. Imprimante Mannes 
man 80 + 1200 F souris, crayon optique, doc. M. 
CARDINAL où M. PAGNIEZ - tél. 45.06.62.00 (SP). 


Vends CP 6128 mono + lecteur 5’ 1/4 + joys- 
uck + livres + CPC (n° 3 à 22) + AM (3 à 22) 
+ logiciels : 4500 F. tél. 48.48.54.1 après 18h00. 


Cherche correspondants utilisant le minitel avec un 
6128 ou PCW 8256 + logic. série Pillon Jalons - 
51150 Tours s/ Marne - tél. 26.69.52.63. 


Vends mattel électronic intellivision + 7 jeux 
(Donkey-Kong, Basket, Foot, Tennis, Star Strike...) 
le tout en TBE : 1000 F. Tél. 61.01.92.K67 après 
20h00. 


CPC 6128 cherche contacts pour échange de logi- 
ciels (jeux et utilitaires). Ecrire à BRISSET Cyril - 
Sainte-Marguerite - 05000 GAP. 


Vends CPC 464 + DMP 2000 sous garantie + nbx 
jeux + joystick, le tout 4000 F. Tél. 
1.34.86.95.89 après 19h00. 


Vends pour tout Amstrad, Super Sound (sono en 
hifi sans fil) : 235 F. Logiciels pour OK IMATE 20 
+ et microline 182 : 120 F. Tél. 90.55.91.65. 


Lycéen vends où échange logiciels originaux (5'° 
1/4) + recherche matériel sur Amstrad souris, 
modem, imprimante. Tél. 78.23.99.39. 


Vends Thomson TO9 jamais servi : 4500 F. Acheté 
le 01.01.87. Tél. 46.30.57.46 Mme DIZIER après 
18h00. 


Cause passage en 5'’ 1/4, vends 80 disquettes 3°’ 
pleines, jeux utilitaires, éducatifs. Tél. 47.68.40.04 
HB où 37.43.565.52 Eure/Eure&L. 


Vends Amstrad CPC 464 mono + joystick + 21 
logiciels + 31 programmes + livres, le tout : 
2400 F. Tél. 93.47.45.85 Cannes. 


Vends imprimante Epson LX80 + chariot + 
câbles : 2200 F. Tél. 91.78.58.13. 


Cherche CPC 6128 couleur, prix maxi : 3300 F sui- 
vant 109 et accessoires. Région Paris. Tél. 
64.30.53.29. 


Vends modem DTL2000 + 11650 F boite ext. pour 
CPC avec alim vent. + lect. Teac 5°’ 1/4 + Fdp. 
4 con. + 24ES + 50 disq. + liv. : 3000 F. Tél. 
66.89.83.92. 


Vends DAMS d'origine + revues Amstrad : 300 F. 
Val. : 625 F. VILLAFRANCA Denis - Chemin Laguire 
32800 Eauze. 


Vends pour CPC livres, revues, logiciels originaux 
(K7-disc). Rens. LEFORT Christophe - 12, rue du 
Béarn - 25000 Besançon. 


Cherche log. Laser BASIC de intéractive Software, 
urgent. Tél. 98.70.47.70 après 19h00. 


Vends Amstrad CPC 464 très bon état couleur + 
turbo copieur + manuel + 60 logiciels : 2000 F. 
Tél. 34.13.56.73 après 17h00. 


Cherche contact 6128 Paris ou RP (3'' et 5'’ 1/4 
Vortex). M. CASTAGNE Didier - 47, rue Pierre 
Semard - 94700 Maisons-Alfort. 


Vends logiciels 3,5" Semaphore & MA 50 % valeur 
origine + doc. - CPCn° 1à8&15à22:10F 
pièce. Amstrad Mag. Col. Comp. 10 F pièce. Tél. 
31.76.39.10. 


Vends CPC 464 couleur + DMP1 + DD1 + joys- 
tick + livre + K7 + disk : 6500 F TTC. Tél. 
93.56.88.89 après 19h00. 


Vends lecteur 5°’ 1/4 AM5D + 1 Mo pour Ams- 
trad 664 et 6128, neuf : 1200 F. Tél. 91.67.04.89. 
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Ÿ et 
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JAMES COBURN 
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Le À 
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video … video … video … video … 


Total commande : 


- Prénom : 
(Ecrire en majuscules) 


Adresse : _ Port (recommandé PU) : 


Total de mon règlement : 


Code postal : Date : 


Ville : Signature : 


Ci-joint un chèque libelk à l'ordre de : VISION. Retournez k(s) bulletin(s) ou une photocopie à : 
VISION - La Haie de Pan — 35170 BRUZ. 


NOUVEAUTES REPORT TOTAL GENERAL A +B 
+ port 10% [ Hors série n° 2 sans cassette 
[ Hors série n° 3 sans cassette 
AMSTAR n° 1 épuisé Hors série n° 4 
Compilation CPC 1-2-3-4 70F Entourez le (ou les) numéro(s) commandé(s). 
La pratique des imprimantes 
Michel ARCHAMBAULT 95 F CASSETTES 
[Apprenez l'électronique sur AMSTRAD Franco de port 
P. BEAUFILS & B. DESPERRIER 95 F 
1 exemplaire AMSTAR n° 10F Cassettes n° 1, 2, 14, 17 18 épuisés 


1 cassette représente un numéro 
LIVRES _ : [ abonné 45F 
+ port 10 % [] non abonné 55 F 
[ abonnement cassettes (11 n°) 450 F 
Mieux programmer AMSTRAD 85 F ____| Jecommande les cassettes n° 
Communiquez avec AMSTRAD 
D. BONOMO - E. DUTERTRE 90 F DISQUETTES 
Jouez avec AMSTRAD - KERLOCH 48 F Franco de port 
Programmes utilitaires pour AMSTRAD 
Michel ARCHAMBAULT 85 F 1 disquette contient 2 n° consécutifs de CPC 
L'Univers des PCW -— Patrick LEON 119F — Disquette n° 1 comprend CPC 1 et 2 
Cassette — Disquette n° 2 comprend CPC 3 et 4 
Communiquez avec AMSTRAD 190 F — Disquette n° 3 comprend CPC 5 et 6 
Disquettes -— Disquette n° 4 comprend CPC 7 et 8 
L'Univers du PCW — Patrick LEON 150 F — Disquette n° 5 comprend CPC 9 et 10 
Communiquez avec Amstrad 250 F — Disquette n° 6 comprend CPC 11 et 12 
— Disquette n° 7 comprend CPC 13 et 14 
A:TOTAL — Disquette n° 8 comprend CPC 15 et 16 
— Disquette n° 9 comprend CPC 17 et 18 
B':PORT 10% — Disquette n° 10 comprend CPC 19 et 20 
— Disquette n° 11 comprend CPC 21 et 22 
A + B TOTAL GENERAL — Disquette n° 1 HS comprend CPC 1 HS 
— Disquette n° 2HS comprend CPC 2HS 
ANCIENS NUMEROS — Disquette n° 3 HS comprend CPC 3 HS 
Franco de port — Disquette n° 4 HS comprend CPC 4HS 
abonné 110F 
Attention, n° 1 à 6, 12 1415 épuisées non abonné 140 F 
abonnement disquettes (6) 600 F 
8,9, 10,11, 13, 18, 16, 17, Je commande les disquettes n° 
18, 19, 20, 21, 22 
Û 7, TOTAL GENERAL FRANCO 
Hors série n° 1 avec cassette Port en sus 10 % pour envois par avion 


Prénom : 


Adresse : 


Code postal : Ville : 


Date : Signature : 


Merci d'écrire en majuscules. 
Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez le(s) bulletin(s) ou une photocopie à : Editions SORA- 
COM - La Haie de Pan — 35170 BRUZ. 


L 


pPPRENEL 
LECT ONIQUE 
AMSTRAD 


— & 


pierre BEAUFILS 1 
PA rs va | à \ j mi, ÿ ce “a us F1 ale 
SORACOM 


_ et 
Bernard DESPERRIER 
FORMATIQUE 


| r'SORACH 


JOUEZ 
NEC 


\STRAD 


Stéphane Laurent Pascal 


ENFIN REEDITES ! 


Les quatre premiers 
numéros de CPC 
en un seul livre 


De nombreux 
programmes de jeux 
et utilitaires, des 
conseils pratiques, 
trucs et astuces, 
schémas, des 4 
premiers n° de CPC 
réunis en un seul 
livre. 


= 


BON DE COMMANDE 
+ 10 % port (Compilation CPC) 


t 1 - 
: "ss 
ms _. 
ms = Nom ..... nie sers Prénom ............... 
AIO Déesse 
Ci-joint chèque de .......................... à l'ordre de Bretagne Edit’ Presse 


à retourner à Bretagne Edit’ Presse - La Haye de Pan - 35170 BRUZ 


